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ratio  of  initial  plume  momentum  to  river  velocity  ■  — 

P 

sensitivity  coefficient, 
volume  of  instantaneous  spill, 
scale  factor. 

kinematic  viscosity  of  river  water, 
angle  from  horizontal  of  initial  plume. 

7  in  Appendix  A 

time  at  which  point  (or  line)  instantaneous  source  is 
injected  into  water. 

integration  variable. 


ly  in 


>endix  B 


time  and  cross-section  averaged  concentration. 

approximation  functions  of  total  concentration. 

time  and  cross-section  averaged  river  velocity,  and 
steady  and  tidal  amplitudes. 

evaporated  mass  per  unit  surface  area. 

x  -fudt  ■  transformed  space  variable. 

transformed  time  variable.  * 

correction  to  approximation. 


Symbols  Used  Only  in  Appendix  C 


effective  half-length  of  each  instantaneous  point  (or  line) 
source  at  the  observation  point  at  the  observation  time. 


I.  EXECUTIVE  SUMMARY 


This  final  report  covers  all  four  tasks  of  a  project  to  revise  and 
verify  experimentally  the  mixing  and  dilution  models  for  water  soluble  chem¬ 
icals  of  the  Hazard  Assessment  Computer  System  (HACS) .  The  report  docu¬ 
ments  (1)  the  analysis,  development,  and  verification  of  the  final  form  of 
the  models,  (2)  all  experimental  procedures  and  representative  test  data, 
and  (3)  listings  of  the  computerized  models  suitable  for  HACS. 

Background 

Analytical/computer  models  had  been  developed  previously  for  the 
U.  S.  Coast  Guard  for  use  in  predicting  the  mixing  and  dilution  of  water- 
>  soluble  chemicals  spilled  into  waterways.  A  later  independent  review  found 

that  the  models  contained  a  number  of  serious  limitations  and  errors: 

1.  Only  neutrally-buoyant  spills  are  considered. 

2.  The  initial  momentum  and  size  of  the  spill  are  neglected. 

3.  The  evaporation  model  is  uncoupled  from  the  mixing  and 
dilution  models. 

4.  Discontinuous  concentrations  are  predicted  where  the  "near 
field"  and  "far  field"  dilution  models  are  matched. 

5.  The  time-dependency  of  the  flow  in  tidal  rivers  is  neglected. 

6.  Coastal  waters  and  estuaries  are  not  Included. 

For  those  reasons, the  Coast  Guard  has  sponsored  the  present  program  to  correct 
the  indicated  deficiencies  and  to  validate  the  revised  models  experimentally. 

Task  1  -  Literature  Review  and  Reformulation/Revision  of  Models 

After  reviewing  the  literature  on  spills  in  water  and  the  analogous 
case  of  plumes  in  air,  it  was  determined  that  major  revisions  were  needed  to 
the  models  to  predict  the  chemical  concentrations  in  the  "near  field"  close 
to  the  spill;  the  methods  used  by  the  existing  HACS  models  do  not  represent 
the  best  available  state-of-the-art  techniques  and  generally  give  unreliable 


predictions  in  the  area  where  the  concentrations  are  the  highest  and  the 
hazards  the  greatest.  For  regions  farther  downstream,  the  form  of  the 
existing  models  was  satisfactory  although  errors  in  some  of  the  empirical 
correlation  equations  and  in  the  "near  field"  -  "far-field"  matching  had 
to  be  eliminated. 

In  summary,  three  new  models  were  developed: 

1.  Continuous  spill  in  a  steady  river; 

2.  Instantaneous  spill  in  a  steady  or  tidal  river;  and 

3.  Continuous  spill  in  a  tidal  river. 

For  estuaries  and  coastal  waters,  an  existing  "Dynamic  Estuary  Model"  was 
examined  and  recommended  for  use  but  further  development  of  that  model  was 
not  attempted  during  this  program. 

In  addition  to  turbulent  diffusion  and  dispersion  of  the  chemical 
discharge  downstream  of  the  spill,  the  model  of  a  continuous  spill  now  in¬ 
cludes  (1)  the  effects  of  the  momentum  and  buoyancy  of  the  chemical  stream 
discharged  from  a  punctured  tank  on  the  dilution  of  the  resulting  plume, 
and  (2)  the  buoyancy-induced  spreading  and  dilution  of  the  plume  where  it 
impacts  the  channel  bottom  or  water  surface.  Those  parts  of  the  model  are 
partially  based  on  well-verified  models  of  the  dispersal  of  a  heavy  gas 
discharged  in  the  air  or  along  the  ground.  In  addition,  the  model  accounts 
for  the  effects  of  the  channel  boundaries  on  the  concentration  and  includes 
evaporation  from  a  plume  that  reaches  the  water  surface. 

The  model  of  an  instantaneous  spill  includes  buoyancy-induced  spread¬ 
ing  and  dilution  near  the  spill  site,  as  well  as  turbulent  diffusion  and 
dispersion  farther  downstream.  The  effects  of  the  channel  boundaries  and 
evaporation  are  also  treated.  The  analysis  is  partially  based  on  analogous 
models  of  a  heavy-gas  cloud  spreading  along  the  ground.  For  a  tidal  river, 
the  effects  of  the  transient  tidal  flow  on  the  mixing  and  dilution  are  in¬ 
cluded,  as  derived  from  an  original  analysis. 


The  model  for  a  continuous  spill  in  a  tidal  river  is  similar  to  that 
for  a  steady  river,  with  one  major  exception.  Analytical  difficulties  in 
treating  "buoyancy-induced  mixing  in  a  transient  flow  made  it  impractical  to 
include  such  mixing  in  the  model.  Thus,  the  predictions  are  likely  to  be  less 
accurate  for  negatively-  or  positively-buoyant  chemical  spills  in  the  near¬ 
field  than  the  corresponding  steady-river  model.  The  effects  of  the  tidal  flow 
are  included,  however,  as  is  the  possibility  that  water  can  pass  back-and-forth 
by  the  spill  site  several  times. 

The  models  now  can  be  used  for  nearly  every  practical  combination  of 
chemical  density,  spill  duration,  spill  rate,  spill  volume,  and  waterway  type. 
They  have  been  programmed  for  computerized  solution,  and  program  listings  and 
flow  charts  are  given  in  this  report. 

Task  2  -  Experimental  Design 

In  order  to  verify  the  model  predictions,  an  extensive  test  program 
was  designed.  Because  of  a  lack  of  suitable  test  facilities  for  the  simu¬ 
lation  of  a  tidal  flow,  the  test  program  considered  only  steadily-flowing 
rivers.  Moreover,  the  emphasis  was  on  verification  of  the  model  predictions 
for  regions  near  the  spill  site,  since  for  areas  farther  downstream  the  models 
are  similar  to  well-understood  and  well-developed  diffusion  and  dispersion 
models.  A  sensitivity  analysis  of  the  models  was  conducted  to  aid  in  the 
test  design;  this  analysis  revealed  the  parameters  that  have  the  most  in¬ 
fluence  on  the  concentration  predictions  and  therefore  should  require  control 
and  accurate  measurement.  The  test  plan  was  approved  by  the  Coast  Guard. 

Task  3  -  Data  Collection  and  Analysis 

Most  of  the  tests  covered  in  the  Test  Plan  were  conducted  in  a  rect¬ 
angular  channel  at  Texas  A&M  University.  The  channel  width  of  1.52m  and 
depth  of  0.24  m  was  assumed  to  represent  a  scale  reduction  of  1  to  50  in  order 
to  select  realistically-scaled  values  of  the  other  test  parameters. 

After  a  number  of  preliminary  tests  and  a  subsequent  revision  of  the 
test  plan,  a  total  of  ten  instantaneous  spills  and  nine  continuous  spills  were 
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conducted.  The  tests  covered  a  range  of  chemical  specific  gravities  from 
0.79  to  1.40,  two  river  speeds  for  each  chemical,  and  either  two  spilling 
rates  or  two  spilled  volumes  (depending  on  the  type  of  spill)  for  each  chemical. 

The  chemicals  were  mixed  with  measured  quantities  of  a  fluorescent  dye 
so  that  concentrations  could  be  determined  by  a  fluorometer,  using  small 
samples  taken  from  the  channel.  For  most  of  the  tests,  concentrations  were 
measured,  at  one  or  more  downstream  locations,  over  the  channel  width  and 
depth,  as  well  as  with  respect  to  time  for  instantaneous  spills. 

Task  4  -  Revision  and  Demonstration  of  the  Mathematical  Models 

In  this  task,  the  models  of  continuous  and  instantaneous  spills  in  a 
steady  river  were  compared  to  the  test  data,  and  the  "best"  values  of  certain 
empirical  constants  appearing  in  the  models  were  selected.  For  each  kind  of 
spill,  the  results  of  several  of  the  tests  were  used  to  make  the  selection  of 
the  empirical  constants.  The  remaining  tests  were  then  used  as  independent 
data  for  model  verification.  Generally  good  comparisons  of  the  models  and  the 
test  results  were  obtained. 

It  is  concluded  that  the  revised  models  are  now  satisfactory  for  use 
in  the  Hazard  Assessment  Computer  System. 


II.  INTRODUCTION 


As  part  of  the  Hazard  Assessment  Computer  System  of  the  Chemical 
Hazards  Response  Information  System,  models  have  been  developed  to  predict 
the  mixing,  dilution,  and  evaporation  of  water  soluble  chemicals  spilled 
into  waterways  from  accidental  punctures  of  cargo  ship  tanks  [1,  Models  4 
and  11].  Since  the  models  are  to  be  used  primarily  for  contingency  planning 
and  the  evaluation  of  responses  to  accidents  in  progress,  their  formulation 
was  general  enough  to  treat  a  variety  of  waterways,  spill  sizes,  and  spill 
durations  without  the  need  to  describe  water  velocity  profiles,  bottom 
roughnesses,  waterway  cross-sections,  puncture  shapes,  and  other  character¬ 
istics  of  the  accident  that  are  unlikely  to  be  available  in  practice.  They 
were,  therefore,  more  idealized  than  a  corresponding  model  developed  specif¬ 
ically  for  a  given  spill  and  waterway  would  need  to  be.  A  critical  review  [2] 
has  shown  that,  even  so,  the  models  are  overly  limited  in  scope  and  contain 
errors  in  their  basic  physical  representations.  For  those  reasons,  the  Coast 
Guard  has  sponsored  the  present  program  to  correct  the  indicated  deficiencies 
and  to  validate  the  revised  models  experimentally. 

The  previous  review  [2]  and  the  review  conducted  as  part  of  the  present 
work  have  concluded  that  the  primary  criticisms  and  limitations  of  the  avail¬ 
able  models  are: 

1.  Only  neutrally-buoyant  spills  are  considered. 

2.  The  initial  momentum  and  size  of  the  spill  are  neglected. 

3.  The  evaporation  model  is  uncoupled  from  the  mixing  and 
dilution  models. 

4.  Discontinuous  concentrations  are  predicted  where  the  "near 
field"  and  "far  field"  dilution  models  are  matched. 

5.  The  time-dependency  of  the  flow  in  tidal  rivers  is  neglected. 

6.  Coastal  waters  and  estuaries  are  not  included. 

The  first  two  comments  imply  that  the  models  will  not  adequately  represent 
many  types  of  spills.  For  a  continuous  spill,  for  example,  the  buoyancy  of 
the  chemical  as  it  enters  the  water  has  a  strong  effect  on  the  initial  mixing. 
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as  would  its  initial  momentum  [3],  Further,  if  the  initial  buoyancy  (negative 
or  positive)  is  not  dissipated  by  the  time  the  plume  intersects  the  waterway 
bottom  or  free  surface,  the  chemical  will  be  mixed  by  gravity  across  the 
waterway  width  more  rapidly  than  would  be  predicted  by  the  mixing  and  dilution 
analyses  incorporated  in  the  available  models  [4].  As  a  result  of  the  de¬ 
ficiency  cited  in  the  third  comment,  more  chemical  can  be  evaporated  than  was 
contained  in  the  original  spill  while,  at  the  same  time,  the  originally 
spilled  mass  is  still  predicted  to  be  contained  in  the  waterway.  To  correct 
the  deficiency  given  in  the  fourth  comment,  a  proper  accounting  of  the  spilled 
mass  or  mass  flow  rate  must  be  used  in  matching  the  various  model  regimes. 
There  are  two  limitations  implied  by  the  fifth  comment.  First,  tht  differ¬ 
ences  between  the  diffusion  and  dispersion  coefficients  of  a  tidal  river  and 
a  steadily-flowing  river  are  not  predicted  correctly  [5].  Second,  the  possi¬ 
bility  that  water  can  flow  back-and-forth  under  the  spill  site  several  times 
is  neglected.  (A  tidal  river  is  here  defined  to  be  that  upstream  part  of  an 
estuary  where  density,  i.e.,  salinity,  gradients  are  negligible  but  where  the 
flow  velocity  oscillates  with  the  tides.)  The  sixth  comment  implies  that  the 
models  are  limited  to  waterways  with  a  defined  and  uniform  flow  direction. 
Other  criticisms  can  be  made  of  the  correlating  equations  used  to  compute 
diffusion  and  dispersion  coefficients  and  of  certain  other  details  of  the 
models,  but  those  listed  above  cite  the  major  deficiencies. 

The  present  program  was  designed  to  reformulate  the  models  in  the 
light  of  the  above  criticisms  and  to  validate  the  models  experimentally.  The 
program  efforts  were  arranged  into  four  tasks. 

Task  1  -  Literature  Review  and  Reformulati on/Revision  of  Models 

For  this  task,  the  mixing-dilution-evaporation  models  for  water  soluble 
chemicals  were  reformulated  to  remove  the  limitations  and  correct  the  defi¬ 
ciencies  listed  above. 


the  initial  momentum  and  buoyancy  of  the  spill  are  important. 


Task  3  -  Data  Collection  and  Analysis 

For  this  task,  the  experimental  program  designed  in  Task  2  was  exe¬ 
cuted.  The  experiments  were  conducted  in  a  large  water  channel  at  Texas 
A&M  University. 

Task  A  -  Revision  and  Demonstration  of  Mathematical  Models 

For  this  task,  the  reformulated  models  were  compared  to  the  experi¬ 
mental  results  and  revised  as  indicated  by  the  comparisons.  Each  model  was 
also  computerized  and  documented. 

This  report  is  generally  organized  in  agreement  with  the  four  tasks; 
the  major  exception  is  that  the  model  revisions  indicated  by  the  test  results 
are  incorporated  in  the  descriptions  of  the  models  at  the  time  they  are  first 
given.  All  the  data  from  the  tests  are  presented  in  the  companion  Test  Data 
Volume  of  this  Final  Report. 


III.  REFORMULATION  OF  MODELS 


III.l  Common  Assumptions  and  Remarks 

The  models  developed  in  this  report  are  based  upon  a  small  number  of 
common  assumptions,  which  have  been  made  primarily  to  eliminate  the  need  for 
a  detailed  description  of  the  waterway  and  the  spill  rather  than  to  simplify 
the  basic  physical  representations.  To  avoid  repetition,  the  assumptions  are 
listed  together  here. 

Waterway  Assumptions 

W.l  -  The  waterway  is  straight  and  has  a  constant  width,  w,  and 

depth,  d.  The  effect  of  the  waterway  dimensional  configura¬ 
tion  is  characterized  by  the  value  of  the  hydraulic  radius,  R^  . 
W.2  -  The  turbulent  nature  of  the  river  or  channel  flow  is  charac¬ 
terized  by  the  value  of  the  friction  velocity,  u*  [5]. 

W.3  -  The  flow  is  assumed  to  be  one-dimensional  and  the  direct 

effects  of  the  vertical  and  horizontal  velocity  profiles  are 
neglected  with  two  exceptions: 

(1)  The  vertical  velocity  profile  is  used  in  the  near -field 
model  for  a  continuous  spill  to  compute  the  plume  tra¬ 
jectory  and  rate  of  vertical  dispersion. 

(2)  The  flow  is  assumed  to  be  locally  two-dimensional  in 
the  estuary  model. 

W.4  -  The  blockage  and  interference  effects  due  to  the  presence  of  the 
cargo  ship  in  the  waterway  are  neglected. 

Spill  Assumptions 

5 . 1  —  A  continuous  spill  is  characterized  by  a  constant  mass  flow 

rate,  the  density  of  the  chemical,  a  specified  spilling  dura¬ 
tion,  and  the  diameter  of  a  circular  puncture. 

5.2  -  An  instantaneous  spill  is  characterized  by  the  total  mass  of 

chemical  released  and  the  chemical  density. 
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S.3  -  The  spilled  chemical  is  infinitely  soluble  in  water,  and  has 
the  same  temperature  as  the  water. 

Evaporation  Assumption 

E.l  -  Evaporation  is  considered  only  for  buoyant  chemicals  in  which 
the  concentration  is  high  in  the  near -field  regime  at  the 
waterway  surface. 

The  consequences  of  these  assumptions,  many  of  which  are  commonly  made 
in  mixing  and  dilution  studies,  are  not  severe.  The  waterway  assumptions  to-, 
gether  imply  that  localized  effects,  due  to  bends  in  the  waterway,  large  scale 
roughness  elements,  and  so  on,  cannot  be  predicted,  nor  can  gradual  increases 
or  decreases  of  the  mixing  and  dilution  due  to  gradual  changes  in  the  cross- 
section  area.  The  spill  assumptions  are  all  reasonable;  the  computerized  form 
of  the  models  in  fact  point  out  when  an  instantaneous  spill  is  so  large  that  it 
should  be  considered  as  continuous.  Most  of  the  chemicals  of  interest  to  the 
Coast  Guard,  and  to  which  these  models  are  meant  to  apply,  are  so  highly  soluble 
that  Assumption  S.3  is  completely  satisfactory.  The  evaporation  assumption  is 
a  consequence  of  the  high  solubility  of  the  chemicals;  the  partial  vapor  pres¬ 
sures  of  the  dissolved  chemicals  are  so  low  that  evaporation  is  negligible  un¬ 
less  the  chemical  "floats"  at  the  surface  with  a  high  concentration. 

The  analytical  models  used  to  predict  chemical  concentrations  from  con¬ 
tinuous  and  instantaneous  spills  are  presented  in  Sections  III. 2  through  III. 5. 
Table  III.l  summarizes  the  presentations  and  can  serve  as  a  guide  for  reference. 
In  general,  the  models  for  any  specific  type  of  waterway  would  be  used  sequen¬ 
tially  in  the  listed  order  to  follow  the  fate  of  the  spill. 

Initially,  it  was  proposed  to  allow  the  models  to  accept  experimental 
data,  say  in  the  well-mixed  region,  for  the  purpose  of  improving  the  prediction 
accuracy  of  the  models  in  the  near-field  regions.  These  kinds  of  composite  ana¬ 
lytical/experimental  models  did  not  prove  to  be  feasible  in  terms  of  the  accu¬ 
racy  required  for  the  data-sample  location  with  respect  to  the  plume  (or  cloud) 
centerline.  They  will  not  be  discussed  further  in  this  report. 

III. 2  Continuous  Spills  in  Steady  Rivers 


In  this  section  a  navigable,  non-tiday  river  is  defined  to  be  a  flowing 
body  of  water  of  sufficient  width  and  depth  to  permit  the  passage  of  loaded 
tank  ships  and  barges.  In  the  case  of  a  rupture,  and  complete  discharge  of  a 
cargo  tank,  the  amount  of  cargo  released,  Mg,  into  the  river  may  be  know  pre¬ 
cisely.  However,  it  is  usually  the  rate  of  cargo  release,  M,  that  determines 
the  peak  concentrations  downriver  from  the  accident  site.  The  cargo  release 
rate  depends  upon  the  dimensions  of  the  tank  puncture  and  the  hydrostatic 
pressure  difference  between  cargo  and  water  that  causes  the  tank  to  drain. 

The  HACS  venting  rate  model  has  been  revised  and  validated  [6,7],  and  it 
may  be  used  to  estimate  the  cargo  release  rate  from  data  furnished  by  field 


TABLE  III.1  GUIDE  TO  ANALYTICAL  MODEL  DEVELOPMENT 


RIVER 

TYPE 

SPILL 

TYPE 

PHYSICAL  APPLICATION 

Steady 

or 

Tidal 

Continuous 

Initial  dilution  of  a  buoyant  plume,  with 
significant  momentum,  before  the  plume 
impacts  the  river  surface  or  bottom. 

Steady 

Continuous 

Dilution  of  a  buoyant  plume  after  it 
impacts  the  river  surface  or  bottom. 

Steady 

Continuous 

Turbulent  diffusion  of  a  buoyant  plume, 
after  its  buoyancy  and  momentum  are  neg¬ 
ligible,  that  does  not  impact  the  river 
surface  or  bottom;  or  a  plume  without 
initial  buoyancy  or  momentum. 

Steady 

Continuous 

Turbulent  diffusion  and  dispersion  of  a 
plume  well-mixed  over  the  river  depth. 

Steady 

Continuous , 
after  dis¬ 
charge  stops 

Turbulent  diffusion  and  dispersion  of  a 
finite-length  plume 

Steady 

or 

Tidal 

Instantan¬ 

eous 

Initial  dilution  of  a  buoyant  spill 
(cloud) 

Steady 

or 

Tidal 

Instantan¬ 

eous 

Turbulent  diffusion  of  a  non-buoyant 
cloud 

Steady 

or 

Tidal 

Instantan¬ 

eous 

Turbulent  diffusion  and  dispersion  of  a 
cloud  well-mixed  over  the  river  depth. 

Steady 

or 

Tidal 

Instantan¬ 

eous 

Turbulent  dispersion  of  a  cloud  well- 
mixed  over  the  river  cross-section. 

Tidal 

Continuous 

Turbulent  diffusion  of  a  non-buoyant 
plume 

Tidal 

Continuous 

Turbulent  diffusion  and  dispersion  of  a 
plume  well-mixed  over  the  river  depth. 

Tidal 

Continuous 

Turbulent  dispersion  of  a  plume  well- 
mixed  over  the  river  cross-section. 

Tidal 

Continuous, 
after  dis¬ 
charge  stops 

Turbulent  diffusion  and  dispersion  of  a 
finite-length  plume 

Bays  & 
Estu¬ 
aries 

Continuous 

or 

Instantan¬ 

eous 

Dilution  and  dispersion  of  a  non-buoyant 
spill  in  a  water  body  that  does  not  have 
a  well-defined  or  predominant  channel. 
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Ooms 

(very  near¬ 
field) 


Colenbrander 
(very  near¬ 
field) 


Near¬ 

field 


Intermediate- 

field 


Eidsvik 
(very  near- 
field) 


Near¬ 

field 


Intermediate- 

field 


Near- 

field 


Intermediate- 

field 


Far- 

field 


Dynamic 

Estuary 

Model 
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personnel  at  the  accident  site.  Alternatively,  the  average  release  rate  may 
be  estimated  as  the  amount  of  cargo  released  divided  by  the  observed  duration 
of  the  release.  Discharges  of  short  duration,  say  less  than  10  minutes, 
should  be  analyzed  as  an  instantaneous  release.  Discharges  of  more  than  10 
minutes  duration  will  be  analyzed  by  the  continuous  spill  model. 

III. 2.1  General  Description 

The  revisions  that  have  been  made  to  the  mixing  and  dilution 
model  for  continuous  spills  in  a  steady  river  consist  of 

o  modeling  the  effects  of  the  momentum  and  buoyancy  of  the 
discharged  chemical  on  the  trajectory  and  dilution  (en¬ 
trainment  of  water)  of  the  chemical  plume; 
o  modeling  the  gravitational  cross-stream  spreading  of  the 
chemical  plume  after  it  reaches  either  the  upper  or  lower 
surface  of  the  river ; 

o  modeling  the  effect  of  density  stratification  between  the 
chemical  plume  and  the  water  on  the  rate  of  vertical  en¬ 
trainment  ; 

o  improving  the  image  modeling  of  the  waterway  boundaries ;  and 
o  allowing  for  the  simultaneous  evaporation  of  chemical  vapor 
from  the  surface  of  the  chemical  and  water  mixture. 

The  revised  mixing  and  dilution  model  has  three  distinct 
phases  of  development.  These  are  referred  to  as  the 

Very  Near  Field  (VNF)  -  This  phase  occurs  in  a  region  close  to  the  discharge 
point.  Plume  discharge  momentum  and  buoyancy  forces  control  the  plume  tra¬ 
jectory  and  influence  the  rates  of  vertical  and  horizontal  spreading  of  the 
plume  in  this  phase. 

Near  Field  (Nf)  -  This  phase  comprises  the  region  in  which  momentum  and  buoyancy 
forces  have  a  negligible  effect  on  plume  trajectory.  Shear  and  turbulence  gen¬ 
erated  by  the  river  flow  control  the  mixing  and  dilution  of  the  chemical  plume. 
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Far  Field  (FF)  -  This  phase  occurs  when  the  chemical  plume  has  been  mixed 
uniformly  over  both  the  depth  and  width  of  the  river.  This  phase  occurs  in 
a  region  that  is  far  downriver  from  the  spill  site,  and  it  may  not  be  attained 
in  rivers  that  are  very  wide. 

In  all  three  phases,  evaporation  of  chemical  vapor  may  occur 
from  the  river  surface. 


III. 2. 2  Very  Near  Field  -  Jet  Momentum  and  Buoyancy  Regime 

In  the  region  close  to  the  discharge  point,  the  discharged 
chemical  stream  is  treated  as  a  bent-over  plume  or  jet.  The  rise  and  disper¬ 
sion  of  buoyant  gaseous  plumes  in  air  has  received  considerable  attention  in 
the  air  pollution  literature  [8],  Several  models  are  available  for  predicting 
the  plume  rise  and  dilution  of  bent-over  plumes  in  air  [9] .  The  basic  plume 
rise  and  dispersion  processes  are  the  same  in  water  as  in  air.  Therefore,  one 
of  the  more  general  plume  rise  and  dispersion  models  was  selected  for  use  in 
the  very  near  field. 


Ooms  [3]  developed  a  numerical  (computer)  model  for  bent-over 
plume  development  that  solves  four  simultaneous  differential  equations  for  the 
conservation  of  mass,  chemical  species,  and  vertical  and  horizontal  momentum. 

This  model  uses  three  empirical  entrainment  coefficients  to  quantify  the  entrain¬ 
ment  of  ambient  fluid  by  velocity  shear,  buoyancy,  and  flow  field  turbulence. 

This  model  (unlike  some  of  the  algebraic  plume  rise  formulas  described  in  [9]) 
can  be  applied  to  plumes  of  positive,  negative  or  neutral  buoyancy  with  dis¬ 
charge  angles  between  vertical  and  horizontal  (downstream) . 


Ooms’  model  consists  of  a  set  of  integral-differential  equa¬ 
tions  that  represent  balances  for  chemical  species,  mass  and  momentum  in  a 
turbulent  flowing  ambient  stream.  The  equations  are 

Conservation  of  chemical  species 


_d_ 

ds 


=  0 


13 


(III.1) 


Conservation  of  mass 


/  b/T  _  \ 

-(  f  2TrrpU  dr)  =  2irbp  {a^|u*(s)|  +  ct2  (1  |sin  0| 


0  +  ou  u'} 


(III. 2) 


Conservation  of  momentum  in  the  horizontal  direction 

/  \  * 

2irrpu2  cos  0  drj  =  27rbp  u  {otjju  (s)  | 

+  o^u  |  sin  0|cos  0  +  a^u'"}  +  C^TTbp  sin^0|  ( 


(III. 3) 


Conservation  of  momentum  in  the  vertical  direction 


/  b^2 

—  (  J*  2TTrpU2  sin  0  dr 


\  b/2~ 

)■!  * 


g(p  -p) 2irrdr 


+  CjjTTbp  sin20  cos  0 


(III. 4) 


The  integrals  in  Equations  (III.l)  through  (III. 4)  may  be 
evaluated  by  assuming  similarity  profiles  for  the  distribution  of  velocity, 
density  and  concentration  in  the  plume 


U(8,r,0)  =  u  cos  0  +  u*(s)e  r  ^k0(s) 

-/  \  -r2/X2b2(s) 

p(s,r,0)  =  p  +  p  (s) e  0 

q\  */  \  -r2/A^b2(s) 

C(s,r ,0)  =  c  (s)e  0 


(III. 5) 


(III. 6) 


(III. 7) 


The  plume  density  and  concentration  are  related  for 


isothermal  flow  as 


(pp-p)C 


(III. 8) 


where  p„  is  the  density  of  undiluted  chemical  and  p  is  the  density  of 


water. 
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The  dependent  variables  in  Equations  (III.l)  through  (III. 4) 
are  the  plume  velocity  u  (not  to  be  confused  with  u^,  the  value  of  shear  velo¬ 
city  for  the  river),  the  plume  characteristic  radius  bQ,  the  angle  of  the 
plume  with  respect  to  horizontal  0,  and  the  concentration  c*.  The  river  velo¬ 
city  u  is  allowed  to  vary  in  the  vertical  direction  as 


(i) 


(III. 9) 


where 


z  =  d  -  z 


(III. 10) 


when  z  is  directed  vertically  downward  from  the  surface  of  the  river  as 
shown  in  Figure  III.l.  The  parameters  U0,  zQ,  and  a  are,  ideally,  determined 
from  data  fits  to  the  velocity  profile  of  the  river  under  consideration.  In 
the  comparisons  of  model  to  test  data  described  in  Section  V,  U0  has  been 
taken  as  the  velocity  at  the  surface,  zQ  has  been  taken  as  the  river  depth, 
and  a  has  been  computed  (using  an  analysis  included  in  the  computerized 
model)  by  reference  to  an  assumed  logarithmic  profile  based  on  the  shear  velo¬ 
city;  such  a  procedure  would  also  be  acceptable  in  actual  applications  with 
little  loss  of  accuracy. 

The  differential  equations  that  result  from  Equations  (III.l) 
through  (III. 8)  are  integrated  along  the  plume  pathline  s.  Two  additional 
differential  equations  are  used  to  determine  the  plume  trajectory 


Z  =  Z-£ 


& 

+  I 


sin  6  ds 


x  =  +  J*  cos  0  ds 


(III. 11) 


(III. 12) 


and  x^,  represent  the  coordinates  of  the  discharge  location. 

Recommended  values  for  the  empirical  model  coefficients 
a^,  (*2 ,  CX3,  C(j  and  X^  are  given  in  Ooms'  paper  and  are  also  discussed  in 
[10].  The  turbulence  entrainment  velocity  u'  will  be  equated  to  the  tur¬ 
bulent  shear  velocity  u*  in  this  study. 

A  computer  program  was  written  in  FORTRAN  to  perform  the 
numerical  integration  of  Ooms'  model  equations.  The  effects  of  the  river 
boundaries  are  simulated  by  means  of  a  set  of  four  first  order  images  as 
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shown  in  Figure  III.l.  The  concentration  at  a  location  x,y,z  downriver  from 
the  discharge  location  can  be  expressed  as 


C(x,y,z)  =  c* 


-(y-yn)  - 


(z-zn>2 

* 

i 


(III. 13) 


For  the  arrangement  shown  in  Figure  III.l,  the  images  are  located  at: 


yi  =  a. 

Z1  = 

B, 

plume  centerline 

y2  =  a. 

z2  = 

-B, 

image  about  the  river  surface 

y3  =  w-A, 

z3  = 

B, 

image  about  the  right  bank 

■e- 

it 

> 

z4  = 

2  d-B, 

image  about  the  river  bottom 

y5  =  (w+A) 

,  z5 

=  B, 

image  about  the  left  bank 

Plume  development  is  continued  with  Ooms '  model  equations 
until  a  convenient  point  is  reached  for  transition  to  another  model.  The 
transition  criteria  are 


if  the  plume  hits  either  the  upper  or  lower  river  surface, 
transition  to  a  second  VNF  model  that  includes  buoyancy 
effects  on  lateral  and  vertical  spreading  for  plumes 
developing  over  horizontal  surfaces; 

if  the  plume  is  very  dilute  (so  that  buoyancy  effects  are 
negligible),  transition  to  a  point  source  NF  model; 

if  the  plume  dimensions  are  large  with  respect  to  the  depth 
and/or  width  of  the  river,  transition  to  a  point  source  NF 
model. 


III. 2. 3 


Gravity  Spreading  Regime 


Ooms'  model  can  account  for  the  effect  of  a  nearby  surface  on 
the  concentration  field,  but  it  cannot  simulate  the  effect  of  the  surface  on  the 
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plume  trajectory.  Therefore,  If  the  chemical  plume  either  rises  to  the  river 
surface  or  sinks  to  the  bottom,  another  model  is  required  to  continue  the  com¬ 
putation  of  plume  development.  Several  models  have  been  developed  for  the 
analogous  atmospheric  problem  of  the  dispersion  of  a  dense  gas  cloud  close  to 
the  ground.  We  have  selected  Colenbrander ’ s  model  [4]  for  the  development  of 
dense  vapor  clouds  and  adapted  it  to  model  the  steady  state  behavior  of  a 
buoyant  chemical  plume  above  or  below  a  river  surface. 

The  laboratory  tests  reported  in  Sections  IV  and  V  show 
that  when  the  value  of  Froude  number  associated  with  the  chemical  discharge 
is  very  low  (about  0.5)  the  plume  spreads  out  horizontally  to  form  a  pool 
when  a  surface  is  encountered.  (The  Froude  number,  which  is  effectively  a 
ratio  of  the  channel  flow  momentum  to  the  buoyancy  force  exerted  on  the  plume, 
is  one  of  the  parameters  that  controls  the  initial  trajectory  and  dilution  of 
the  plume;  see  Section  IV. 1.3.)  This  behavior  is  shown  in  Figure  III. 2  for 
a  discharge  of  sodium  silicate  at  a  Froude  number  of  0.51.  As  the  flow  of 
chemical  (diluted  by  the  entrainment  of  water)  into  the  pool  continues,  the 
pool  grows  in  size.  However,  the  flow  of  water  over  the  top  of  the  pool  en¬ 
trains  some  of  the  chemical  solution  and  transports  it  downriver.  The  rate 
of  chemical  uptake  is  influenced  by  the  river  speed,  the  shear  velocity  and 
the  level  of  the  density  stratification  characterized  by  the  value  of  the 


Richardson  number.  The  plume  that  develops  above  the  dense  chemical  pool 
is  relatively  broad  in  the  cross-stream  direction  and  thin  in  the  vertical 
direction. 


Colenbrander ’s  model  can  be  applied  to  this  situation.  It 
assumes  that  a  dense  fluid  is  taken  up  into  the  surroundings  from  a  rectangular 
source  area  as  shown  in  Figure  III. 3.  Downwind  from  the  area  source  the  concen 
tration  distribution  is  approximated  by  similarity  profiles 


C(s,y,z)  =  CA  exp 


for  j  y'\  >  b,  and 


C(x,y,z)  =  CA  exp 


1+a 


for  |  y ^  |  <  b 


(III. 14) 


(III. 15) 


- ISO -CONCENTRATION  CONTOURS 

FOR  C  ■  Cu 


THE  SIMILARITY  PROFILES  FOR  THE  CONCENTRATION  AND 
ISO-CONCENTRATION  CONTOURS  IN  THE  PLANES  y*  0,  I  =0,  I*1*,***,  ANO  •=«, 

FIGURE  III. 3 
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Here,  b  is  the  width  of  a  region  near  the  plume  centerline  over  which  the 
concentration  profile  is  independent  of  y'  (the  cross-stream  distance  mea¬ 
sured  from  the  plume  centerline),  and  z'  is  a  vertical  dimension.  For  chem¬ 
icals  that  are  densre  than  water 

*  +*  , 
z  =  z  =  d  -  z 

but  for  plumes  of  chemicals  that  are  lighter  than  water 


z 


z 


The  profile  variables  in  Equations  (III. 14)  and  (III. 15)  are 


CA,  the  plume  centerline  concentration 

b,  the  width  of  the  constant  concentration  region 


Sy,  the  cross-stream  dispersion  coefficient,  and 

Sz  the  vertical  dispersion  coefficient. 

Colenbrander  presents  a  set  of  differential  equations  that  may  be  solved 
simultaneously  to  give  the  values  of  the  profile  variables  as  a  function  of 
the  downstream  distance. 


is  defined  as 


The  effective  halfwidth  (measured  from  y' =  0)  of  the  plume 


®eff  b  +  2  Sy 


(III. 16) 


Gravity  spreading  due  to  buoyancy  causes  the  plume  halfwidth  to  increase  with 
distance  as 


where 


d  Beff  = 
dx 


1-0  l^A  I~r^4r)l  (l+a)"1/2 


y2 


(III. 17) 


(1+a) 


(III. 18) 


The  cross-stream  dispersion  coefficient  increases  with  downstream  distance 
due  to  the  turbulent  structure  of  the  river  flow.  Thus 


S 


y 


d  Sy 
dx 


(III. 19) 


where 

W=b+^Sy  (III. 20) 

and  Oy  =  6 x  ®  is  a  power  law  correlation  for  the  cross-stream  dispersion 
coefficient  for  a  point  source. 


Equations  (III. 17) and  (III. 19)  serve  to  determine  the  behavior  of  Beff  and  Sv. 
The  local  value  of  b  is  calculated  from  Equation  (III. 16). 


from 


The  vertical  dispersion  coefficient,  Sz  is  determined 


(1+a)2 


Bef  f 

4>(Ri*) 


where 


(III. 21) 


k  =  the  von  Karman  constant. 


is  the  assumed  similarity  form  for  the  velocity  profile,  equivalent  to  Equation 
(III. 9)  above.  The  function  <J>(Ri*)  is  an  empirical  correlation  that  models 
the  effect  of  density  stratification  within  the  chemical  plume  on  the  vertical 
dispersion  coefficient.  Colenbrander  suggests 


<J>(Ri*)  =  0.74  +  0.25  Ri*°'7  +  1.2  *  10-7  Ri* 


(III. 22) 


where  Ri.  is  the  Richardson  number  defined  as 


Ri*  =  8 


(III. 23) 


and 


H 


ef  f 


■r(irs)  V<i+5) 


(III. 24) 


is  the  effective  height  of  the  plume 


The  final  equation  for  plume  centerline  concentration  is 


E  ( 1+  a)  z0“ 

TI  <.  1+B  R 

uo  sz  Beff 


(III. 25) 


where  E  =  mass  flowrate  of  chemical  taken  up  from  the  source  into  the  plume. 
If  desired.  Equation  (III. 25)  can  be  modified  to  include  atmospheric  evapora¬ 
tion  of  chemical  from  a  buoyant  plume  that  is  spreading  and  developing  along 
the  river  surface.  If  we  assume  that  the  concentration  decreases  at  a  rate 
that  is  proportional  to  the  local  concentration,  then 


E(l+  a)  Zq  -yx/u 

Uq  ^z  ®eff 


(III. 26) 


A  computer  program  was  written  in  FORTRAN  to  perform  the 
numerical  integration  of  Colenbrander *s  model  equations.  As  with  Ooms'  model,  the 
effects  of  the  river  boundaries  are  simulated  by  a  set  of  first  order  images. 


The  computation  of  plume  development  is  continued  with 
Colenbrander 's  model  until  the  vertical  dispersion  coefficient  is  equal  in 


size  to  the  river  depth.  At  this  point  a  transition  is  performed  to  the 
intermediate  field  line  source  model  which  assumes  that  the  concentration 
field  is  well  mixed  in  the  vertical  direction. 


III. 2. 4  Turbulent  Diffusion-Dispersion  Regime 

After  the  momentum-buoyancy-gravity  phase  of  mixing  is  com¬ 
pleted,  a  transition  is  made  to  a  "near-field"  model  in  which  turbulent  diffu¬ 
sion  is  the  only  important  mixing  mechanism.  If  buoyancy  effects  are  not  sig¬ 
nificant,  a  transition  will  take  place  directly  from  Ooms'  model  to  a  point 
source,  near-field  model. 


When  the  point  source  model  is  used,  the  concentration  is  pre¬ 
dicted  from  the  solution  to  the  standard  turbulent  diffusion  equation  [5]: 


C(x,y,z) 


M 


4irx(eyez) 


h 


n  =  1 


u(y-yn)2 

4  X  Ey 


u(z-zn)2 
4  x  ez 


(III. 27) 


Here,  yn  are  the  locations  of  the  equivalent  point  source  and  its  four  first- 
order  images.  The  images,  as  shown  in  Figure  III.l,  account  for  the  dominant  ef¬ 
fects  of  the  channel  walls,  bottom,  and  free  surface;  that  is,  they  insure 
that  3C/3n  0  at  all  those  surfaces,  where  n  is  the  normal  to  the  surface. 


The  turbulent  dif fusivities  in  Equation  (III. 27)  are  computed 
from  the  values  of  shear  velocity  and  river  depth: 

ez  =  0.067  du*  (III. 28) 

and 

Ey  =  K£  du*  (III. 29) 

Here,  Ke  is  0.15  for  a  laboratory  channel  and  is  0.6  for  a  river.  The 
numerical  constant  of  the  £_  correlation  is  recommended  in  [5],  and  the 
values  of  K£  of  the  Ey  correlation  have  been  chosen  as  a  "best  fit"  to 
the  extensive  sets  of  data  for  rivers  and  channels  given  in  [5]. 
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The  shear  velocity  is  given  as  [11] 


u 


* 


3.807  n  u/R^ 


Vs 


(III. 30) 


Vs  Vs 

where  n  as  0.009  (m)  for  a  "smooth"  channel  and  n  as  0.025  (m)  for  a 

river.  The  hydraulic  radius  is: 


Rh  -  wd/ (2d  +  v)  (III. 31) 

In  Equation  (III. 27),  the  origin  x*0  of  the  equivalent  point 
spill  is  selected  to  match  the  very  near-field  concentration  by  a  procedure 
discussed  in  Section  III. 2. 5. 


After  the  chemical  plume  has  traveled  some  distance  downstream 
the  concentration  distribution  will  become  approximately  uniform  in  the  vertical 
direction.  Plumes  of  negligible  buoyancy  that  are  modeled  well  by  the  point 
source  Equation  (III. 27)  become  well  mixed  over  the  river  depth  at  a  distance  of 
about  0.3ud^/ez.  Buoyant  plumes  with  strong  density  stratification  as  modeled 
by  Colenbrander ’ s  equations  may  require  a  longer  distance  before  the  vertical 
dispersion  coefficient  S2  becomes  as  large  as  the  river  depth,  d.  In  either 
case,  when  the  concentration  distribution  becomes  nearly  uniform  in  the  vertical 
direction,  a  transition  is  made  to  a  vertical  line-source  model  that  includes 
dispersion.  The  formulation  suggested  in  [12]  is  used  for  this  model  since  the 
effects  of  the  channel  surfaces  are  included  exactly: 


Here,  the  lateral  dispersion  coefficient  ey  is  equal  to  £y  for  a  constant- 
depth  river  [12],  and  ws  is  the  sum  of  A  and  w/2. 

The  origin  x  ■  0  of  the  line  source  is  selected  by  a  pro¬ 
cedure  discussed  in  Section  III. 2. 5.  Note  that  Equation  (III. 32)  automatically  re¬ 
duces  to  the  far-field  concentration,  M/wdu,  at  locations  far  downstream. 
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III. 2. 5  Matching  of  Models 

We  shall  first  consider  the  matching  conditions  for  plumes 
with  strong  buoyancy  that  either  rise  to  the  river  surface  or  fall  to  the  river 
bottom.  The  plume  development  is  computed  using  Ooms'  model  until  the  plime 
centerline  comes  within  a  distance  of  0.01  d  of  the  upper  or  lower  surface. 

When  this  occurs,  a  transition  is  made  to  Colenbrander ?s  model  and  a  set  of 
matching  conditions  is  applied  to  generate  the  initial  values  for  model 
variables . 


The  laboratory  experiments  indicated  that  two  types  of  tran¬ 
sition  were  possible.  For  values  of  the  densimetric  Froude  number  of  0.6  and 
below,  the  chemical  plume  formed  a  pool  on  the  surface.  Chemical  solution  was 
taken  up  from  the  pool  by  turbulent  entrainment  into  the  flowing  stream  of 
water  above  or  below  the  pool.  However,  for  significantly  higher  values  of 
Froude  number,  a  pool  was  not  formed.  Instead,  on  reaching  the  surface,  the 
plume  would  slump  and  spread  laterally  as  it  continued  to  move  in  a  downstream 
direction.  Both  types  of  transition  are  considered  here,  with  a  test  on  the 
value  of  Froude  number  to  determine  which  set  is  used. 

For  a  value  of  Froude  number  less  than  0.6,  pool  spreading  is 
assumed.  The  amount  of  dilute  chemical  solution  entering  the  pool  is  deter¬ 
mined  from  the  chemical  discharge  rate  and  the  plume  concentration: 


Mass  flow  into  the  pool  =  M  [  (pc-p) /pc  +  p/C^]  (III. 33) 


This  number  is  equated  to  the  rate  of  chemical  solution  uptake  f:-om  the  pool. 
The  uptake  rate  is  computed  as 


t2  L  p  z0UQ  /  Sz\  1+0 

L  Qmax  =  “(l+a)  (  T~Q  j 


(III. 34) 


Since  Sz  is  a  function  of  distance,  it  is  necessary  to  compute  the  uptake 
rate  with  the  aid  of  a  model  equation  for  Sz 


ji_/£z\1+a  ^  k  u*  (1  +  a)2 

dx  yz 0J  zQ  UD  4>(Ri*) 


(III. 35) 
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At  each  x  step.  Equation  (III. 34)  is  evaluated  (with  L  =  x)  and  compared  to  the 
value  of  mass  flowrate  from  Equation  (III. 33).  When  the  two  values  of  flowrate 
are  equal,  integration  is  stopped  and  the  result  used  to  determine  initial 
values  of  Sz  and  Beff  =  L/2.  Also,  we  set  Sy =  0  so  that  b  =  Beff  =  L/2. 

The  initial  value  of  concentration  is  assumed  to  be  equal  to  2c  where 
2c  is  the  value  of  the  plume  centerline  concentration  computed  by  Ooms' 
model  with  a  first  order  image  to  give  the  effect  of  the  river  surface. 


For  values  of  Froude  number  greater  than  0.6,  the  possi¬ 
bility  of  pool  formation  is  neglected.  Instead,  the  plume  is  assumed  to  flow 
along  the  river  surface  with  initial  values  for  the  profile  variables  deter¬ 
mined  from  the  final  values  of  plume  variables  computed  by  Ooms'  model.  As 
for  the  pool  spreading  case,  we  set 


C 


A  " 


2c* 


S 


y 


=  o 


Initial  values  of  Beff  and  Sz  can  be  determined  by  integrating  the  profile 
formulas  in  the  horizontal  and  vertical  directions.  First, 


Bef  f 

J  CAdy 


J  2c*  e^2/iV>  dy' 


(III. 36) 


gives 
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Next , 


jV<^>l+5  dz.J 
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°  '  dz 


which  gives 
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For  all  other  cases  where  the  initial  buoyancy  of  the  plume 
is  dissipated  before  the  plume  impacts  the  bottom  or  the  free  surface,  the 
point  source  model  is  matched  directly  to  the  concentration  predicted  at  the 
end  of  the  valid  range  of  Ooms *  model.  The  end  of  Ooms'  model  is  taken  as  the 
plume  radius  for  which  the  concentration  is  1/e  of  the  starting  value,  since 
at  that  point  the  plume  has  lost  most  of  its  excess  buoyancy  and  momentum.  The 
corresponding  plume  radiu  is: 

rp  =  0.50617  d/A  (III. 40) 

By  referring  to  the  equations  of  Ooms'  model  presented  in  Equations  (III.l) 
to  (III.  12)  and  to  Equation  (III. 27)  of  the  point  source  model,  it  can  be  con¬ 
cluded  that  the  origin  of  the  point  source  model  must  be  located  at  a  distance 
upstream  from  the  matching  point  equal  to: 

xqnf  =  A2rp2u/4/e^  (III. 41) 

Letting  x00MS  represent  the  downstream  distance  from  the  spill  at  which 
Equation  (III. 40)  occurs,  the  downstream  offset  from  the  actual  spill  site  at 
which  the  virtual  origin  of  the  point  source  lies  is: 

^NF  =  x00MS  “  x0NF  (III. 42) 

That  is,  at  a  given  observation  point,  x,  the  value  that  must  be  used  in  the 

near-field  model  is  x  -  Ax^p.  This  matching  procedure  ensures  (1)  continuity 
of  peak  concentration,  and  (2)  conservation  of  spilled  mass;  the  concentration 
distribution  of  the  two  models  may,  however,  be  slightly  different. 

To  match  the  intermediate-field  line-source  model  to  the 
near-field  point  source  or  Colenbrander  model,  the  average  concentration  over 
the  depth  of  the  near-field  model  is  computed  at  the  downstream  end  of  its 
range  of  validity;  the  average  is  made  at  the  cross-stream  location  containing 
the  peak  concentration.  A  distance  x  in  Equation  (III. 32)  of  Section  III. 2. 4  is 
then  determined  (by  an  iterative  procedure  in  the  computerized  models)  such 
that  the  concentration  predicted  by  the  line-source  model  is  equal  to  the 


depth-averaged  near-field  concentration.  Letting  this  distance  be  XQjp, 
the  virtual  origin  of  the  line  source  is  thus  shifted  downstream  from  the 
actual  spill  site  by  an  amount 


Axjp  -  Axj^p  +  -  xQjp  (III. A3) 

Here,  xNp  is  the  downstream  length  for  which  the  near-field  model  is  valid, 
measured  relative  to  its  virtual  origin.  For  a  given  observation  point  x, 
the  value  that  must  be  used  in  the  intermediate-field  model  is  x  -  Axjp. 

III. 2. 6  Concentrations  After  Discharge  Ceases 

After  the  discharge  of  chemical  ceases  at  time  te,  the 
entire  body  of  dilute  chemical  solution  translates  downstream  with  the  river 
velocity.  The  concentration  distribution  is  now  affected  by  longitudinal  dis¬ 
persion  as  well  as  lateral  and  vertical  diffusion  and  dispersion.  However, 
if  the  observing  location  is  positioned  within  the  regimes  modeled  by  either 
of  the  two  VNF  models  (Ooms'  or  Colenbrander ' s  model)  the  effect  of  longi¬ 
tudinal  dispersion  will  be  neglected.  The  local  concentration  will  maintain 
its  steady  state  value  for  an  additional  length  of  time  equal  to  the  upstream 
distance  to  the  spill  site  divided  by  the  river  velocity.  After  that  time, 
the  concentration  is  assumed  to  be  zero. 

When  the  observing  location  is  positioned  within  the  near¬ 
field,  point-source  model  regime,  the  concentration  in  the  near-field  can  be 
computed  by  imagining  that  the  discharge  is  made  up  of  a  stream  of  elementary 
discharges  dM  =  Mdt  spread  out  in  time  over  the  period  t  =  0  to  t  =  te. 

The  total  effect  is  calculated  by  integration  [5].  (When  te  — ►  00  or  when 
the  observation  time  t  is  less  than  te,  this  procedure  gives  the  result 
obtained  previously  as  Equation  (III. 27)  of  Section  III. 2. A.)  Integration  details 
are  presented  in  Appendix  A.  The  result  is: 
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where  ^ 

^  =  +  <y_yn)2  +  ^  (Z-Zn)2j  (III. 44b) 

The  longitudinal  diffusion  coefficient,  ex,  is  difficult  to  estimate  but  is 
of  the  order  of  ey  [5].  From  our  tests,  as  described  in  Section  V.2,  it 
appears  that  ex  =  10  ey  is  a  realistic  value. 

Likewise,  the  intermediate  field  model  is: 
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^exp  £ 
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The  longitudinal  dispersion  coefficient  is  [12] 


ex  =  5.93  du^ 


(III. 47) 


After  the  spill  ceases,  the  intermediate  field  model  does 
not  automatically  reduce  to  the  correct  far-field  limit.  The  longitudinal 
dispersion  of  a  chemical  mixed  uniformly  over  the  width  and  the  depth  is  much 
greater  than  that  for  just  uniform  mixing  over  the  depth  [5].  By  integrating 
a  sequence  of  elementary  discharges,  the  correct  far-field  model  is  found  to  be 
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The  far-field  longitudinal  dispersion,  as  recommended  by  the  data  analysis 
of  [13],  is 

=  0,18  (u  u 5k)Js  w2/Rh  (III. 49) 

In  use,  the  near-field  model  is  assumed  to  be  valid  for  a 
translated  distance  from  the  spill  site  equal  to  xNF,  as  discussed  in 
Section  III. 2. 5;  that  is.  Equation  (44)  is  used  for  observation  times  and 
distances  such  that 

0  <  (x-Axnf)  -u  (t-te)  <  xNF  (III. 50) 

That  part  of  the  translating  plume  initially  in  the  very  near-field  is  also 
computed  from  the  near-field  model;  this  approximation  will  tend  to  over¬ 
estimate  the  concentration. 

The  intermediate-field  model.  Equation  (III. 45)  is  assumed  to 
be  valid  for  observation  times  and  distances  such  that 

XNF  —  (x-Axif)  -u  (t  -  te)  <  u  w2/ey  (III. 51) 

Likewise,  the  far-field  model  is  used  when 

(x-Axif)  -u  (t-te)  >  u  w2/ey  (III. 52) 

These  choices  of  matching  points  insure  that  the  peak  concentrations  of  the 
two  matching  fields  are  equal  at  the  matching  distance  for  t  =  te.  But  for 
t  >  te,  the  peak  concentrations  at  the  matching  distances  will  no  longer  be 
equal,  because  the  forward  longitudinal  dispersion  rate  of  the  upstream  model 
will  not  be  equal  to  the  rearward  longitudinal  dispersion  rate  of  the  downstream 
model.  This  gradually-increasing  discrepancy  is  a  consequence  of  the  use  of 
separate  models  for  what  is  in  actuality  a  continuous  and  smooth  variation. 

It  is  recommended  that  the  larger  of  the  two  concentrations  predicted  around 
the  matching  distance  be  used  for  t  >  te. 


III. 3  Instantaneous  Spills  in  Steady  and  Tidal  Rivers 


111. 3.1  General  Description  of  Model 

The  overall  model  is  composed  of  very  near-field,  near-field, 
intermediate-field,  and  far-field  sub-models.  In  the  very  near-field,  the 
dilution  of  the  spilled  chemical  is  caused  primarily  by  buoyancy-induced  mixing 
(The  initial  momentum  included  in  the  corresponding  sub-model  for  a  continuous 
spill  is  considered  negligible  here.)  The  near-field  sub-model  treats  the  dilu¬ 
tion  due  primarily  to  turbulent  diffusion  after  the  initial  buoyancy  has  been 
dissipated.  Once  the  concentration  becomes  nearly  uniform  over  the  channel 
depth,  the  intermediate-field  sub-model  is  used  to  include  longitudinal  dis¬ 
persion  as  well  as  lateral  diffusion.  Finally,  the  far-field  sub-model  treats 
the  longitudinal  dispersion  of  the  spill  after  it  has  been  mixed  uniformly 
over  the  depth  and  width. 

When  the  chemical  is  neutrally  buoyant  or  nearly  so,  gravity- 
induced  mixing  is  small.  The  very  near-field  model  is  not  needed  then,  al¬ 
though  the  spill  is  still  assumed  to  rise  to  the  surface  or  sink  to  the  bottom 
whenever  its  density  is  not  identically  equal  to  water. 

In  all  cases,  the  various  sub-models  are  matched  by  a  pro¬ 
cedure  that  ensures  that  the  peak  concentration  is  continuous  in  time  and  dis¬ 
tance  and  that  conserves  the  spilled  mass. 

The  models  for  a  tidal  river  are  the  same  in  form  as  those 
for  a  steady  river.  There  are  differences,  however,  in  the  correlating  equa¬ 
tions  used  for  the  diffusion  and  dispersion  coefficients. 

111. 3. 2  Buoyancy -Induced  Mixing  Regime 

Available  models  of  the  dilution  of  a  heavy  gas  into  the 
atmosphere  [14,15]  are  adapted  here  to  treat  the  initial  mixing  of  a  spill 
that  has  a  density  significantly  different  from  water.  A  heavier-than-water 
chemical  spilled  into  water  should,  in  fact,  respond  like  a  heavy  gas 
spilled  along  the  ground.  For  a  lighter-than-water  chemical,  the  analogy 


is  not  exact  since  turbulent  friction  at  the  free  "urface  resembles  only 
qualitatively  that  of  a  gas  spreading  along  the  ground;  nonetheless,  the 
dense  cloud  models  represent  the  most  realistic  models  available  at  this 
time. 


In  order  to  provide  a  starting  condition,  the  initial  shape 
of  the  cloud  is  assumed  to  be  cylindrical,  primarily  because  an  axisymmetric 
flow  is  assumed  in  the  dense  cloud  models.  Any  more  exact  description  of  the 
shape  would  depend  upon  the  puncture  geometry,  the  actual  (short)  time  re¬ 
quired  for  the  spill,  and  other  factors  that  may  not  always  be  available. 

The  spreading  would  rapidly  become  axisymmetric,  in  any  case.  For  definite¬ 
ness,  the  initial  height,  h0,  is  assumed  to  be  equal  to  the  initial  diameter; 
thus: 


=  d0  =  (4  M0/iTpc) 


y3 


(III. 53a) 


If  hQ  is  greater  than  the  channel  depth,  it  is  changed  and  made  equal  to  the 
depth;  dQ  is  then  re-computed  as: 

d0  =  (2  M0/irpcd)^  ;  hQ  =  d  (III. 53b) 

(If  dQ  is  of  the  order  of  magnitude  of  half  the  channel  width,  the  spill  is 
probably  too  large  to  be  considered  instantaneous.  The  spill  description 
should  be  changed  to  continuous  with  a  short  discharge  time.) 


In  order  to  determine  whether  buoyancy-induced  mixing  is 
important  relative  to  turbulent  diffusion,  the  initial  gravity-wave  velocity 
of  the  spill  is  compared  to  the  friction  velocity: 

1.3  (g  hQ  |  1  -  p/pc  I)*5  >3.7  u*  (III. 54) 

The  factor  of  3.7  multiplying  u*  has  been  derived  from  the  test  program 
described  in  Section  V  of  this  report.  If  Equation  (III. 54)  is  not  satis¬ 
fied,  buoyancy-induced  mixing  will  be  small,  and  the  very  near-field  sub-model 
is  not  needed.  (The  gravity-wave  velocity  is  based  on  the  absolute  value  of 
the  density  difference  so  that  both  positive  and  negative  buoyancy  can  be 
treated .) 


The  chemical  is  assumed  to  fall  to  the  channel  bottom  or 


rise  to  the  top  without  dilution,  and  moves  downstream  at  the  river  velocity 
during  the  rise  or  fall.  Since  the  distance  and  time  involved  in  this  initial 
motion  is  small  compared  to  the  subsequent  dilution  time  and  the  total  distance 
the  cloud  moves,  the  error  in  this  approximation  is  small. 

The  mixing  analysis  assumes  a  "top  hat"  concentration  pro¬ 
file,  in  which  the  concentration  is  the  same  throughout  the  cloud  and  falls 
discontinuously  to  zero  at  the  boundaries  [14,15].  The  basic  computing  equa¬ 
tions  are  discussed  below  with  the  aid  of  Figure  III. 4a 

Cloud  Thickness 

hc  =  (M  +  V  /  IT  pmix  rc2  (III. 55) 

Here,  M  is  the  mass  of  chemical  remaining  in  the  water  at  any  time,  and 
^  is  the  mass  of  entrained  water.  When  the  cloud  radius  rc  exceeds  the 
distance  to  either  channel  wall,  the  part  predicted  to  be  outside  the  channel 
is  reflected  back  on  the  cloud,  and  the  average  thickness  is  increased  accord¬ 
ingly. 


Cloud  Radius 


The  radius  of  the  cloud  increases  because  of  buoyancy- 

induced  spreading: 


-  1-3  <8hc  U  -  P/Pmix  |  )H  (III  .56) 

where  rc  =  dQ/2  at  time  t  =  tQ  =  the  time  duration  required  for  the  cloud 
to  sink  to  the  bottom  or  rise  to  the  surface  after  the  spill  occurs. 

Water  Entrainment  Velocity 

Water  is  entrained  around  the  sides  of  the  cloud  and  across 
the  flat  surface  exoosed  to  the  water,  which  for  convenience  will  be  called 


the  top.  The  entrainment  around  the  sides  is  referenced  to  the  area  of  the 
top;  thus,  the  entrainment  is: 


dMw  9 

d T  =  11(3  rc  tutop  +  2  (hc/rc)  uside]  (III. 57) 

where  =  0  at  time  t  =  tQ.  When  rc  exceeds  the  distance  to  either 
wall,  only  the  part  of  the  cloud  area  within  the  channel  is  used  to  compute 
dW^/dt . 


The  entrainment  velocity  around  the  sides  is  proportional 
to  the  gravity-wave  velocity: 

uside  =  2tcf  (drc/dt)]^ (drc/dt)t  =  t  (III. 58a) 

Vfe 

The  friction  coefficient  Cf  =  3.807  n/Rjj  is  computed  in  accordance  with 
the  definition  of  friction  velocity  u*  for  a  channel  flow,  Equation  (III. 30), 
rather  than  for  a  gas  flow  over  the  ground;  this  change  of  definition  is  one 
of  the  main  differences  between  the  available  dense  gas  cloud  models  and  the 
instantaneous  chemical  spill  model.  The  entrainment  velocity  over  the  top  sur¬ 
face  is 


utQp  =  1.3  u*  /  (6.0  +  0.25  NRi)  (III. 58b) 

Ordinarily,  the  entrainment  is  dominated  by  utDp. 

The  Richardson  number  appearing  in  Equation  (III. 58b)  is 
defined  in  accordance  with  [15]: 

Nri  =  0.59  (drc/dt)2/  (1.3  u*)2  (III. 59) 

The  numerical  value  of  the  denominator  of  the  utDp  prediction  recommended 
in  [15]  is  3.33  +  0.29  NRd.  But  when  the  model  predictions  were  compared 
to  the  test  results  described  in  Section  V  of  this  report,  it  was  found  that 
the  recommended  form  overpredicted  the  entrainment  rate,  and  the  magnitude 
of  the  denominator  had  to  be  increased.  It  also  appeared  that  the  stabilizing 
influence  of  stratification  (i.e.,  Richardson  number)  was  over-emphasized  by 


the  recommended  form,  and  its  relative  influence  was  therefore  diminished  in 
the  form  used  here;  the  evidence  for  this  effect,  however,  is  not  as  strong 
as  that  for  the  overall  magnitude  of  the  denominator. 


In  all  these  equations,  u^  is  based  on  the  velocity  of 
a  steady  river  or  on  the  square  root  of  the  sum  of  the  squares  of  the  steady 
and  oscillating  components  of  a  tidal  river.  There  is  some  theoretical 
justification  [5]  for  the  choice  used  here  for  a  tidal  river. 

Chemical  Evaporation  Rate 

When  the  spilled  chemical  is  lighter  than  water,  the  cloud, 
which  is  at  the  free  surface,  may  evaporate  at  a  rate 

dM„  , 

=  irp^  HC  (III.  60) 

where  Me  =  0  at  t  =  tQ.  H  is  the  mass  transfer  coefficient  (see  Appendix  B) 
The  mass  of  chemical  remaining  in  the  water  is  then 

M  =  Mq  -  Me  (III. 61) 

For  heavier -than-wa ter  chemicals,  there  is  no  evaporation. 

Mixture  Density 

The  volume  of  the  cloud  is  assumed  to  be  equal  to  the  indi¬ 
vidual  volumes  of  unmixed  chemical  and  water;  that  is,  the  chemical  is  passive 
and  the  total  volume  is  unchanged  by  mixing.  Thus: 

Pmix  =  (M+V  /  (M/pc+Mw/P)  (III. 62) 


Cloud  Concentration 

The  same  assumption  used  for  Equation  (III. 62)  gives  the 


concentration  as : 


C  =  M/  (M/p^^/p) 


(III. 63) 


Cloud  Location 


The  center  of  the  cloud  lies  at  the  surface  or  channel 
bottom  (depending  on  whether  pc  is  less  than  or  greater  than  p)  and  at 
a  downstream  location  equal  to: 

t 

x  =  j  (u)  dt  (III. 64) 

o 

Termination  of  Buoyancy-Induced  Mixing 

At  some  point  the  mixture  density  approaches  the  water  den¬ 
sity  so  closely  that  buoyancy-induced  mixing  becomes  negligible.  (Note  from 
Equations  (III. 62)  and  (III. 63)  that  the  concentration  can  still  be  large 
even  when  pmix  «  p.)  By  comparing  model  predictions  to  test  data,  it  was 
found  that  a  reasonable  cut-off  criterion  was  the  time  when 

drc 

-[•£-  -  3.7  u*  (III. 65) 

was  first  satisfied.  (Equation  (III. 54)  follows  from  this  correlation.) 

Equations  (III. 53)  -  (III. 65)  completely  describe  the 
dilution  caused  by  buoyancy-induced  mixing.  In  practice,  the  set  of  coupled 
differential  and  algebraic  equations  must  be  solved  numerically.  Some  further 
details  are  given  in  Appendix  B. 

III. 3. 3  Diffusion-Dispersion  Mixing  Regimes 

Downstream  of  the  buoyancy-induced  mixing  regime,  the  spill 
is  diluted  by  turbulent  mixing  (the  near-field  sub-model),  then  by  a  combina¬ 
tion  of  turbulent  mixing  laterally  and  dispersion  longitudinally  (the  inter¬ 
mediate-field  model),  and  finally  by  turbulent  dispersion  (the  far-field 


Near-Field  Model 

If  the  spill  is  predicted  to  have  a  buoyancy-induced  mixing 
phase,  the  cloud  will  usually  be  thin  and  wide  by  the  time  Equation  (III. 65) 
is  satisfied  (see  Figure  III. 4b)  .  A  single  point  source  is  not  a  valid  representa¬ 
tion  of  the  subsequent  mixing  by  turbulent  diffusion.  Perhaps  the  most  logical 
form  of  near-field  sub-model  would  be  a  horizontal  line  source  with  a  length 
equal  to  the  cloud  width.  Such  a  representation  has  the  disadvantages,  however, 
that  (1)  it  would  not  reproduce  the  mixing  of  a  neutrally-buoyant  spill,  for 
which  a  point  source  is  the  best  near-field  representation,  (2)  it  would  be  a 
clumsy  representation  if  the  cloud  width  was  small  relative  to  the  channel 
width,  and  (3)  separate  computational  forms  would  be  needed  for  buoyant  and 
non-buoyant  spills.  A  good  compromise  choice  is  thus  to  represent  the  near¬ 
field  as  a  set  of  point  sources  spread  out  horizontally  along  the  spill  width; 
then,  if  the  spill  is  neutrally-buoyant,  the  number  of  point  sources  can  easily 
be  reduced  to  one.  In  the  computerized  model,  five  point  sources  are  used, 
two  on  each  side  of  the  spill  location  spaced  out  at  distances  one-third  of 
the  way  to  the  spill  boundary  (either  rc  or  the  channel  wall)  and  one  at 
the  spill  location;  four  first-order  images  for  each  point  source  are  also 
included . 

The  computing  equation  for  the  near-field  sub-model  [5]  is  thus: 


5 

T  exp  [-(y  -  yn)2  /  4  ey  t  -  (z  -  zn)2  /  4  ez  t]  (III. 66) 
n  =  1 

with  N  =  5  for  a  buoyant  spill  and  N=1  for  a  non-buoyant  one.  The  outer 
summation  is  meant  to  indicate  that  there  are  N  sets  of  point  sources  and 
images.  The  symbol  ut  is  shorthand  for  the  integral 

t 

J  u  x  dt 
o 


C(x,y,z,t)  =  £ 


N  (M/N)  exp  [-(x-ut)2/4  ext] 


(4TTt)^2  (ex  ey  ez)  % 
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Intermediate*-Field  Model 


For  a  buoyant  spill,  five  line  sources  are  used  to  represent 
the  intermediate-field,  each  at  a  position  corresponding  to  one  of  the  five 
point  sources;  for  a  non-buoyant  spill,  one  line  source  is  used  at  y  =  a. 

The  computing  equation  is: 


N 


C(x,y,t)  =  £ 


(M/N)  exp  [-(x-ut)2/4  e 


(4TT  ext)  %  wd 


12  {■  *  “riS2  ©}  " 


{ 


1+2  £  cos 

n  =  1 


(^t)  cos  jg&±wa]  exp  p24*£]} 


(III. 67) 


where  wg  is  the  sum  of  w/2  and  the  y-coordinate  distance  to  the  line  source 
in  question;  again  N=1  for  a  non-buoyant  spill  and  N=5  for  a  buoyant  one. 
The  first  set  of  curly  brackets  accounts  for  the  tidal  flow,  in  which  et  is 
the  time-varying  part  of  the  dispersion  coefficient.  (If  there  is  no  tidal  flow, 
et =  0  and  the  equation  reduces  to  the  steady  flow  form  [12].)  As  shown  in 
Appendix  B,  the  time-averaged  dispersion  coefficient  is: 

ex  =  (5.93  du*)  fl  +  |  (ezT/d2)  /  [tt2/4  +  (ezT/d2)2]  (III. 68) 


which  reduces  to  the  standard  form  for  a  steady  river  when  the  tidal  period 
T=0.  The  time-varying  dispersion  coefficient  is 


e_  = 


(5.93  duj 


(ezT/d2) 


[tt2/4+  (e-.T/d2)2]*5 


x 


where 


6  =  -arcsin  [  (tt2/4)  (ezT/d2)^  +  1] 


(III. 70) 


These  relations  are  based  on  a  tidal  velocity  of  the  form 


u  =  uQ  +  u-l  sin  —  (t  +  a) 


(III. 71) 


where  a  is  a  phase  shift  that  is  selected  to  allow  the  spill  to  occur  at 
t  =  0. 

Far-Field  Model 

In  the  far-field,  longitudinal  dispersion  acts  to  dilute 
the  spill,  which  is  now  mixed  uniformly  over  the  cross-section.  The  computing 
equation  [5]  is: 

C(x,t)  =  M  exp  [-(x-ut)2/4  Ext]  x 


(x  —  ut) 2 
4  Ext 


&)/ 


wd  (4tt  Ext) 


(III. 72) 


Ex  and  Et  are  of  the  same  form  as  ex  and  et,  Equations  (III. 68)  and 
(III. 69),  except  that  the  factor  5.93  du*  is  replaced  by  0.18  (u*  u)*5  w^/R^, 
where  u  =  (uQ^  +  u^  )’5  . 


III. 3. 4  Matching  of  Models 


It  was  indicated  in  Section  III. 3. 2  that  the  very  near-field 
model  is  used  to  compute  the  spill  concentration  up  to  the  time  that  drc/dt 
first  equals  3.7  u^.  Afterwards,  the  concentration  is  computed  by  the  near¬ 
field  model.  In  order  to  insure  that  the  peak  concentration  is  a  continuous 
function  of  time  and  distance,  a  fictitious  virtual  origin  must  be  selected 
for  the  near-field  model.  This  matching  procedure  is  accomplished  iteratively 
in  the  computerized  model  by  determining  a  total  time  duration  tQjgp  that, 
when  used  in  Equation  (III. 66),  gives  a  peak  concentration  equal  to  that  of 
the  very  near  field.  (Note  that  x  -  ut  =  0  at  the  location  of  the  peak  con¬ 
centration.)  Letting  tyjjp  be  the  time  required  for  drc/dt  =  3.7  u^,  the 
virtual  origin  of  the  near-field  model  is  shifted  forward  in  time  by  an  amount 
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(III. 73) 


AtNF  ~  tVNF  '  tONF 

There  is  a  corresponding  uownstream  shift  AxNF  of  the  x-coordinate  origin 
by  the  amount 


AtNF 

Axnf  =  /  (u)  *  dt .  (III. 74) 

o 

At  a  given  observation  point,  the  values  of  x  and  t  used  in  the  near-field 
model  are  taken  as  x  -  Ax^y  and  t  -  AtNF  . 

If  the  spill  is  neutrally  buoyant,  so  that  a  very  near-field 
model  is  not  needed,  tg^y  is  determined  to  match  a  concentration  equal  to 
pc.  The  virtual  origin  is  then  shifted  backward  in  time  by  the  same  amount  tQNF 

Using  a  similar  procedure,  a  virtual  origin  is  found  for  the 
intermediate-field  model  by  matching  its  concentration  to  the  depth-averaged 
near-field  concentration  computed  at  the  time  when  the  predicted  near-field 
concentration  is  nearly  uniform  over  the  depth;  that  is,  at  the  time  when 
t  =  0.3  d2/ez.  Likewise,  a  virtual  origin  for  the  far-field  model  is  found 
by  matching  its  concentration  to  the  width-averaged  intermediate-field  con¬ 
centration  computed  at  t  =  0.3  w2/€y 

Ill, 4  Continuous  Spills  in  Tidal  Rivers 

III. 4.1  General  Description  of  Model 

This  model  is  based  on  sub-models  and  matching  procedures 
similar  to  those  described  in  Section  III. 2  for  a  continuous  spill  in  a  steady 
river.  There  are,  however,  three  major  differences:  (1)  the  dispersion  coeffi¬ 
cients  are  allowed  to  vary  with  the  tidal  flow;  (2)  for  large  tides,  the  river 
is  allowed  to  flow  back-and-forth  under  the  spill  site,  accumulating  more 
chemical  with  each  pass;  and  (3)  most  importantly,  buoyancy-induced  spreading 
and  mixing  are  not  included.  The  implication  of  the  last  difference  is  that 
mixing  is  not  accurately  predicted  in  the  very  near-field  for  chemicals  sub¬ 
stantially  heavier  or  lighter  than  water.  Although  the  model  therefore  is 
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more  limited  in  scope  than  the  others,  the  time-dependent  variation  of  source 
size  and  strength  that  would  be  needed  in  a  Colenbrander  type  of  model  makes 
it  unfeasible  to  treat  buoyancy-induced  mixing  analytically.  The  very  near¬ 
field  model  thus  includes  only  the  buoyancy  and  momentum  effects  of  the 
initial  plume  (i.e.,  Ooms '  model). 

In  the  discussion  below,  the  near-,  intermediate-,  and  far- 
field  models  are  given  in  complete  time-dependent  form,  as  summarized  from 
the  original  analysis  detailed  in  Appendix  C.*  The  computerized  form  of  the 
model  follows  from  the  time -dependent  equations;  but,  in  order  to  facilitate 
the  matching  of  the  various  sub-models,  the  tidal  period  is  broken  up  into 
six  segments,  in  each  of  which  the  current  is  assumed  constant  and  equal  to 
its  time-average  value,  and  the  computerized  sub-models  actually  are  based  on 
these  time-average  currents.  Concentration  distributions  for  any  specified 
duration  are  then  built-up  by  combining  the  appropriate  numbers  of  each  of 
the  sub-models. 


III. 4. 2 


Jet  Buoyancy -Women turn  Regime 


The  very  near -field  model  treats  the  initial  dilution  of  the 
jet  of  chemical  exiting  the  puncture  caused  by  its  buoyancy  and  momentum.  The 
time  required  by  a  fluid  particle  in  this  plume  to  travel  from  the  puncture  to 
the  location  where  the  initial  buoyancy  and  momentum  have  been  dissipated  or 
to  where  the  plume  intersects  a  channel  boundary  is  short  compared  to  a  tidal 
period.  Thus,  the  effect  of  a  time-varying  current  on  the  plume  dynamics  is 
negligible,  and  Ooms'  formulation  [3]  can  be  used  as  though  the  current  was 
steady.  In  theory,  an  infinite  number  of  such  steady  models  would  be  needed 
to  predict  the  dilution  at  every  instant  of  a  tidal  cycle.  To  keep  the  amount 
of  computations  to  a  manageable  level,  the  tidal  cycle  is  broken  up  into  a 
small  number  of  segments  (six,  in  the  computerized  model)  in  each  of  which 
the  current  is  taken  as  steady  at  its  average  value.  The  model  of 


ras  discovered  that  a  somewhat  similar 
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buoyancy-momentum  mixing  in  che  very  near-field  for  any  of  these  periods  is, 
consequently,  the  same  as  that  described  in  Section  III. 2. 2.  Details  of  the 
analytical  development  will  not  be  repeated  here. 


III. 4. 3 


Diffusion-Dispersion  Regimes 


In  the  near-field ,  the  spill  is  diluted  primarily  by  turbulent 
diffusion,  and  the  concentration  varies  considerably  over  both  the  depth  and 
width  of  the  channel.  The  appropriate  model  for  this  kind  of  mixing  is  a  point 
source,  with  images  to  account  for  the  channel  boundaries.  A  point  source 
model  of  a  continuous  spill  can  be  developed  readily  by  integrating  over  time 
the  concentration  due  to  a  stream  of  infinitesimal  instantaneous  point-source 
spills  [5].  As  shown  in  Appendix  C,  the  result  is: 


C(x,y,z,t)  =  £ 

j  = 


gj  Mv 

L-47TX  (eyez)2|uj 


(III. 75) 


Here,  Uj  is  the  time-average  current  over  the  period  (t  -  t j)  required  for 

the  water  that  was  at  the  spill  site  (x  =  0)  at  time  tj  to  reach  the  observa¬ 
tion  point  x  at  the  time  t,  and  |uj|  is  the  magnitude  of  the  current  at 

time  t j .  For  large  tides,  the  current  may  reverse  direction,  so  the  water  at 

the  observation  point  at  the  time  t  may  have  passed  under  the  spill  site  more 
than  once;  the  number  of  such  reversals  up  to  the  observation  time  is  denoted 
by  P  in  Equation  (III. 75). 


The  current,  as  explained  in  Section  III. 3,  is  of  the  form 
u  =  u0  +  u^  sin  [ 2tt  (t  +  a)/T].  Thus,  the  times  tj  are  the  roots  of  the  equa¬ 
tion  x  -/u  •  dt  =  0,  where  the  limits  on  the  integral  are  t  and  t j ;  thus, 

ulT  r  2tt  2tt  1 

x-uQ(t-tj)+  I  cos  —  (t+a)  -  cos  —  (tj+a)J  =  0  (III. 76) 


which  must  be  solved  numerically  for  the  P  roots.  The  time-average  current 
is 

uj  =  u0  -  2TT(t^t-)  [cos  y  (t+a)  -  cos  ~  (tj  +  a)J  (III. 77) 

and  |uj|  can  be  computed  by  taking  the  absolute  value  of  u  evaluated  at 


In  order  to  examine  the  implications  of  Equation  (III. 75) 
it  is  convenient  to  assume  that  P  =  1  so  that  current  reversals  need  not  be 
considered.  By  comparing  Equation  (III. 75)  to  Equation  (III. 27)  of  Section 
III. 2. 4,  it  can  be  seen  that  the  concentration  of  chemical  in  a  tidal  river 
differs  from  that  in  a  steady  river  having  the  same  average  current  by  the 
factor  uj/  |uj|  .  For  a  steady  river  with  a  relatively  slow  current,  the  amount 
of  chemical  injected  into  the  water  (per  unit  volume  of  water)  is  relatively 
large;  but  the  time  required  for  the  chemical  to  be  transported  to  the  obser¬ 
vation  point  is  long,  thus  allowing  a  relatively  long  time  for  dilution.  The 
opposite  occurs  when  the  current  is  relatively  fast.  Therefore,  the  total 
dilution  along  the  centerline  of  the  spill  is  the  same  in  all  cases  (except 
for  the  effect  of  images)  and  the  distribution  depends  only  on  the  distance 
to  the  observation  point.  For  a  tidal  river,  the  current  can  be  slow  as  the 
water  passes  by  the  spill  site  but  can  have  a  higher  average  value  as  it 
transports  the  chemical  to  the  observation  point;  less  dilution  would  there¬ 
fore  occur  than  for  a  steady  river.  Likewise,  the  dilution  will  be  greater 
when  uj  is  smaller  than  |uj|.  Equation  (III. 75)  shows,  in  fact,  that  the 
ratio  of  the  centerline  dilution  of  a  tidal  river  and  a  steady  river  is  just 
U  j  /  |  u  j  |  . 


When  |uj|  is  very  small  compared  to  u  j  ,  the  analysis 
leading  to  Equation  (III. 75)  is  not  valid.  Longitudinal  diffusion,  which 
was  neglected  in  the  analysis,  is  an  important  dilution  mechanism  for  the 
highly  non-uniform  longitudinal  distributions  of  chemical  that  occur  for  such 
a  condition.  The  concentration  does  not,  therefore,  become  large  in  propor¬ 
tion  to  Uj/  | u j  |  >  >  1,  as  Equation  (III. 75)  implies.  By  taking  longitudinal 
diffusion  into  account  whenever  Uj  a»  0,  it  is  found  that  the  expression 
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within  square  brackets  in  Equation  (III. 75)  should  be  selected  as  the  minimum 
of  the  following  three  possibilities: 


M  uj  I  {4ttx  (eyez)'2  jujj  } 


or 


2.6  MT^  uj  ^  j  (4tt  (4tt  EyE^)*5  x  4  ex4  u^  [cos  (tj+a)]*5} 
or 

1.86  MT^  uj  3/  (4? r  (4tt  Cy^)*2  x^3  ex  /6  u-^3  [sin  (tj+a)]/3  } 

(The  last  form  is  necessary  to  treat  cases  when  not  only  Uj^O,  but  also 
cos  [2tt  (tj  +  a)/T]  -«0.)  The  first,  original,  expression  applies  to  the 
majority  of  cases. 


In  the  intermediate  field,  a  similar  integration  of  infinites¬ 
imal  line  sources  gives: 


C(x,y,t) 


P 


C 


1  +  2  £ 
m  =  1 


/m7TWs\ 
cos  l - 1 
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\  w  / 

mn  (y  +  w/2) 
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exp  (-ra  7 r4  eyx/w^ 
where  Cj  is  the  minimum  of  the  following  three  possibilities: 

M  /  wd  |  u  j  | 


or 


or 


5.2  MT^/wd  (x  uj)4  ex4  [4tt  cos  ~  (tj+ot)]*2 
3.72  MT^3  /  wd  x^  exV3  [4tt  sin  (tj+a)]V3 


(III. 78a) 


(III. 78b) 


(III.78c) 


(III . 78d) 
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Here,  is  the  time-average  dispersion  coefficient  given  previously  in 

Equation  (III. 68).  The  first  expression  applies  to  the  majority  of  cases. 

In  the  far-f ield ,  the  concentration  is 

M 

C3(x,t)  =  I  ^  (III. 79) 

3  =  1 

Here,  Cj  is  the  same  in  form  as  Cj  but  with  replaced  by  (see 

Equation  (III. 72)). 

111. 4. 4  Matching  of  Models 

Exactly  as  for  the  models  of  a  continuous  spill  in  a  steady 
river,  the  various  models  are  matched  at  the  limits  of  their  range  of  validity 
to  insure  that  the  peak  concentration  is  a  continuous  function  of  time  and 
downstream  distance.  In  theory,  the  matching  times  and  distances  (i.e.,  virtual 
origins)  are  themselves  functions  of  time  and  distance.  In  practice,  for  the 
computerized  model,  the  tidal  cycle  is  broken  up  into  six  segments,  models  are 
developed  for  each  segment  using  the  time-average  currents,  and  the  six  sets 
of  models  are  then  matched  as  for  a  steady  river.  Since  the  tide  is  periodic, 
spills  of  any  specified  duration  can  then  be  treated  by  using  the  six  sets  of 
models  repetitively. 

111. 4. 5  Concentration  Models  After  Discharge  Ceases 

After  the  chemical  discharge  ceases  at  time  te,  the  spill 
translates  downstream  and  is  gradually  diluted  further  by  longitudinal  dis¬ 
persion  (which  accomplishes  this  by  increasing  the  total  river  length  affected 
by  the  spill).  Because  of  the  time-varying  current,  analytical  methods  of 
predicting  the  concentration  after  the  spill  ceases,  such  as  were  described 
for  a  steady  river,  are  not  tractable.  Instead,  it  is  argued  that  at  any 
given  observation  point  in  the  spill,  diffusion  and  dispersion  of  the  chemical 
will  proceed  at  almost  the  same  rate  as  when  the  spill  was  continuing.  The 
result  is  that  the  observer  will  continue  to  experience  the  same  concentration 
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that  was  present  at  the  observation  point  during  the  spill,  until  the  entire 
affected  region  has  passed  by.  After  that,  the  concentration  will  be  zero. 
This  procedure  will  slightly  overestimate  the  concentration  and  slightly 
underestimate  the  total  length  of  the  spill  in  the  river. 

For  an  observation  point  downstream  of  the  spill  at  the  time 
the  discharge  stops,  the  concentration  is  assumed  to  be  zero  until  the  lead¬ 
ing  edge  of  the  affected  region  reaches  that  location.  Depending  upon  this 
downstream  distance,  the  leading  edge  might  represent  an  intermediate-field 
or  a  far-field  concentration.  If  the  discharge  time  is  sufficiently  long, 
the  leading  edge  will  represent  a  far-field,  and  by  the  same  logic  outlined 
above,  all  the  downstream  observation  points  will  continue  to  be  in  the  far- 
field  until  the  entire  spill  passes.  Otherwise,  some  downstream  points  will 
lie  in  the  intermediate-field  and  some,  even  further  downstream,  will  lie  in 
the  far-field.  This  kind  of  possibility  is  treated  by  switching  to  the  far- 
field  model  for  any  observation  time  t  greater  than  0.3  w^/ex,  which  is 
approximately  the  length  of  time  required  for  lateral  diffusion  to  mix  the 
spilled  chemical  uniformly  across  the  channel  width. 


III. 5  Spills  in  Estuaries  and  Bays 


The  models  presented  in  Sections  III. 2,  III. 3,  and  III. 4  are  all  based 
upon  the  idealization  of  a  constant  width,  constant  depth  channel  having  a 
well  defined  flow  direction.  For  estuaries  and  bays,  that  idealization  is 
untenable.  Each  case  must  be  treated  individually,  with  the  boundaries  ex¬ 
plicitly  included  in  the  description  and  the  various  flows  computed  as  part 
of  the  model.  A  generalized  model  that  can  perform  such  calculations,  the 
Dynamic  Estuary  Model  [17],  is  already  available  and  is  recommended  for  use 
in  such  cases. 


The  Dynamic  Estuary  Model  (DEM)  is  structured  conceptually  for  a 
specific  system  as  a  single-dimensioned  network  approximation  of  a  vertically 
mixed  system  of  interconnected  channels  and  embayments.  It  is  composed  of 
two  modules:  a  hydrodynamic  module  and  a  transport  module.  The  hydrodynamic 
module  solves  a  set  of  motion  equations  written  for  the  channels  of  the  net¬ 
work  system  and  a  set  of  continuity  equations  for  the  embayments.  The 


solution  yields  a  temporal  description  of  the  flow  and  velocity  in  each 
channel  and  the  water  surface  elevation  at  the  center  of  each  embayment. 

Using  the  hydrodynamic  output  as  the  driver,  the  transport  module  computes 
the  mass  transport  of  specified  constituents  into  and  out  of  each  embayment 
due  to  convection  and  diffusion  and/or  dispersion  with  first  order  reaction 
kinetics  accounted  for  within  each  embayment.  Solutions  within  the  trans¬ 
port  module  give  the  temporal  or  intratidal  variations  of  concentration  and 
the  tidally  averaged  concentrations  at  the  center  of  each  embayment. 

The  basic  approach  for  application  of  the  DEM  to  a  specific  estuary  in¬ 
volves  the  discretization  of  the  system  into  a  series  of  volumetric  units  or 
embayments  called  "nodes"  connected  by  a  system  of  flow  elements  or  channels 
called  "links".  Figure  III. 5a  is  a  conceptual  layout  of  links  for  a  generalized 
estuary,  and  Figure  III.5b  illustrates  the  nodes  whose  volumes  for  the  most 
part  are  made  up  of  the  half  volumes  of  the  connecting  links.  Typically,  nodes 
can  be  of  any  polygonal  shape  with  the  node  spacing  set  by  the  scale  of  the 
problem  and  the  geometry  of  the  problem.  Nodes  are  characterized  by  their 
volumes  (usually  equal  to  half  volumes  of  the  connecting  links),  surface  areas, 
depths,  and  water  surface  elevations.  In  addition,  for  the  transport  module, 
first  order  reaction  coefficients  as  required  are  associated  with  nodes.  Con¬ 
stituent  mass  and  concentration  are  identified  with  the  system  nodes. 

Flows  in  the  DEM  are  allowed  to  occur  between  nodes  along  the  connec¬ 
ting  links.  Each  link  is  described  by  its  length,  depth  or  hydraulic  radius, 
surface  width,  cross-section  or  flow  area,  and  roughness.  For  computation  of 
the  transport  mechanisms,  either  diffusion  or  dispersion  coefficients  are 
assigned  or  computed  for  each  link  in  the  system. 

Time  and  space  scales  are  both  important  in  the  DEM.  Not  only  must 
they  be  selected  to  represent  adequately  the  system  geometry,  tidal  action, 
and  hydrologic  characteristics  of  the  estuary,  but  they  must  be  such  to 
characterize  properly  the  spill  and  its  movement  in  a  two-dimensional  sense. 

The  DEM  has  the  option  to  include  more  detail  in  specific  areas  of  interest 
by  the  addition  of  more,  but  shorter,  channels  at  any  location.  The  finer 
detail,  however,  will  only  come  at  the  expense  of  added  computational  effort. 
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The  selection  of  scales  may  also  be  directly  relevant  to  the  time  over  which 
the  transport  phenomenon  is  observed. 

The  hydrodynamic  module  of  the  DEM  provides  for  the  computation  of 
tidal  flows  and  water  surface  elevation  in  what  is  effectively  a  one-dimen¬ 
sional  representation  of  a  two-dimensional  system.  The  main  limitation  of  the 
DEM  is  that  it  is  limited  to  estuaries  wherein  vertical  stratification  is 
virtually  absent  and  tidal  velocities  can  be  handled  in  a  depth-integrated 
manner.  While  this  is  a  major  constraint  in  some  systems,  the  dominant 
motions  in  most  estuaries  are  in  the  horizontal  plane;  and  in  many  shallow 
estuaries,  wind,  waves,  and  other  mixing  effects  preclude  the  formation  of 
strong  stratification.  Even  in  many  deep  channels  with  heavy  ship  traffic, 
displacement  effects  of  loaded  vessels  and  wheel  water  provide  a  "stirring" 
such  that  stratification  occurs  only  when  accidents  shut  down  shipping  or 
floods  occur  from  upland  sources. 

A  significant  amount  of  effort  is  needed  for  each  use  of  the  estuary 
model.  It  is  probably  not  suitable,  then,  for  the  evaluation  of  rapid  re¬ 
sponses  unless  a  library  of  models  has  already  been  assembled  for  all  the 
estuaries  and  bays  of  potential  interest  to  the  Coast  Guard.  The  DEM  should 
also  be  modified  to  allow  instantaneous  spills;  the  efforts  needed  to  make  such 
a  modification  are  anticipated  to  be  relatively  small.  It  is  unlikely,  how¬ 
ever,  that  the  DEM  can  be  modified  to  predict  buoyancy-  or  momentum- induced 
mixing  and  other  very  near-field  effects. 


IV.  EXPERIMENTAL  DESIGN  AND  DATA  COLLECTION 


IV. 1  Experimental  Design 

The  purpose  of  the  experimental  design  was  to  develop  a  test  plan  for 
a  series  of  experiments  that  would  provide  the  data  necessary  for  validating 
the  revised  models  for  both  continuous  and  instantaneous  spills.  The  design 
process  involved  several  independent  steps  that  had  to  be  performed  before  the 
final  test  plan  could  be  executed.  These  were: 

o  Definition  of  test  program  objectives 
o  Performing  a  model  sensitivity  analysis 

o  Selection  of  modeling  criteria  for  scale  model  tests 

o  Definition  of  the  test  plan. 

The  work  carried  out  in  each  of  these  elements  is  described  in  the  following 
sections. 


IV . 1 . 1  Test  Program  Objectives 

The  main  objective  of  the  test  program  was  to  perform  a  set 
of  experiments  to  quantify  the  effects  of  diacharge  momentum  and  buoyancy 
on  the  behavior  of  chemical  plumes  that  result  from  instantaneous  and  con¬ 
tinuous  discharges  of  water  soluble  chemicals  into  a  turbulent  channel  flow. 
The  tests  should  be  designed  to  include  the  influences  of 

o  specific  gravity  of  the  chemical  (<1,  'VI,  and  >1) 
o  discharge  flowrate  (continuous  spill) 

o  discharge  volume  (instantaneous  spill) 

o  channel  flow  velocity 

o  channel  turbulence  level. 


The  behavior  of  the  chemical  plume  during  the  test  program  was  to  be  deter¬ 
mined  through  the  use  of 

o  flow  visualization  (by  adding  soluble  dyes  to  the  chemical  before 
discharge) ,  and 
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measurement  of  the  chemical  concentration  distribution  in  both 
the  vertical  and  cross-stream  directions  at  selected  downstream 
stations. 


The  concentration  profile  data  acquired  during  the  test  pro¬ 
gram  were  compared  with  predictions  of  concentration  distribution  from  the  re¬ 
vised  computer  models.  The  comparison  of  model  predictions  and  experimental 
data  were  then  used  to  re-evaluate  best  values  for  the  empirical  entrainment 
and  dispersion  coefficients  that  appear  in  the  mixing  and  dilution  models. 

IV . 1 . 2  Sensitivity  Analysis 

A  sensitivity  analysis  was  performed  for  the  revised  mixing 
and  dilution  models  to  determine  the  sensitivity  of  the  predicted  concentra¬ 
tion  distribution  at  downstream  locations  to  changes  in  the  values  of  the 
model  variables.  This  technique  is  useful  in  determining  which  variables 
have  the  greatest  influence  on  the  concentration  distribution,  and  need  to 
be  measured  and  controlled  precisely  during  experiments.  It  will  also  indi¬ 
cate  which  variables  (if  any)  have  little  influence  on  model  predictions  and 
can  safely  be  omitted  from  the  test  program. 


The  sensitivity  analyses  were  performed  before  the  start  of 
the  laboratory  test  program.  At  that  time,  the  need  for  Colenbrander 's  model 
to  simulate  the  buoyant,  gravity  spreading  of  chemical  plumes  along  the  upper 
or  lower  river  surface  in  the  very  near-field  region  was  not  recognized. 
Likewise,  the  model  for  mixing  and  dilution  of  instantaneous  spills  of  buoyant 
chemicals  did  not  include  Eidsvik's  model  for  gravity  spreading  and  entrain¬ 
ment  when  the  model  sensitivity  analysis  was  performed.  Therefore,  the  re¬ 
sults  discussed  in  this  section  do  not  pertain  entirely  to  the  complete  re¬ 
vised  models  described  in  Section  III.  Sensitivity  analyses  were  performed 
for  both  continuous  and  instantaneous  spills  in  steady  and  tidal  rivers,  but 
only  the  results  for  the  continuous  spill  in  a  steady  river  are  presented  here 
since  the  results  of  the  instantaneous  spill  are  very  similar. 


For  each  model,  the  change  in  maximum  downstream  concen¬ 
tration  was  computed  for  a  +  5%  change  in  value  of  each  model  variable 


about  a  selected  baseline  condition.  The  sensitivity  coefficient  for  each 
variable  was  determined  as: 

A'SCX  =  (AC/C0)  /  (AX/X0)  (IV.  1) 

Here  AC  is  the  concentration  change  from  CQ  for  a  AX  change  in  the  var¬ 
iable  XG.  When  SCX  is  positive,  C  increases  as  X  increases  and  de¬ 
creases  when  X  decreases;  the  opposite  holds  when  SCX  is  negative.  The 
magnitudes  of  SC^  indicates  the  sensitivity  of  the  computed  concentration 
to  the  selected  value  of  X;  if  SCX  =  1.0,  for  example,  the  percentage 
change  in  C  is  the  same  as  the  percentage  change  in  X;  values  of  SCX 
greater  or  less  than  one  indicate  greater  or  less  sensitivity  to  changes  in  X. 

Table  IV. 1  gives  the  results  of  the  sensitivity  analysis  for 
the  case  of  a  chemical  with  a  specific  gravity  of  1.2  spilled  at  a  rate  of 
0.14  nrVsec  into  a  river  flowing  steadily  at  a  velocity  of  1  m/s.  The  spill 
rate  corresponds  roughly  to  the  emptying  of  a  10m  x  10m  x  20m  tank  in  four 
hours.  The  peak  concentrations  at  three  downstream  locations  are  given  in 
the  table;  the  5m  location  is  well  within  the  "very  near  field"  where  both  the 
buoyancy  and  the  momentum  of  spilled  material  are  important,  the  500m  location 
is  in  the  "near  field"  region  where  buoyancy  and  momentum  are  no  longer  impor¬ 
tant  but  where  the  concentration  still  varies  considerably  over  the  depth  and 
width  of  the  river  cross-section,  and  the  5000m  location  is  in  the  region 
where  the  concentration  over  the  depth,  but  not  the  width,  is  uniform.  Note 
that  physical  parameters,  such  as  spill  rate,  chemical  density,  river  dimen¬ 
sions,  etc.,  have  been  varied  as  well  as  numerical  parameters,  such  as  entrain¬ 
ment  and  dispersion/diffusion  coefficients.  The  sensitivity  coefficients  given 
in  the  table  are  averages  of  the  +  calculations. 

It  can  be  seen  that  changes  of  the  order  of  +5%  in  the  values 
of  the  model  variable  do  not  greatly  affect  the  computed  concentrations.  This 
is  a  desirable  result  in  the  sense  that  obtaining  exact  values  of  the  variables 
may  be  difficult  in  actual  full-scale  cases.  (Some  of  the  variables  have  an 
effect  on  the  trajectory  of  the  buoyancy /momentum  jet,  but  the  table  only  ex¬ 
amines  the  peak  concentrations,  independently  of  where  in  the  river  cross- 
section  they  occur.)  The  very  near -field  concentration  is  fairly  sensitive 


TABLE  IV. 1  SENSITIVITY  COEFFICIENTS  FOR  CONTINUOUS  DISCHARGE 
OF  HEAVIER-THAN-WATER  CHEMICAL  IN  A  STEADY  RIVER 


o  Physical  Parameters:  Chemical  density  =  1200  kg/m-*;  Chemical 
flowrate  =  0.14  m-Vsec;  Tank  puncture  diameter  =  1.0  m; 

River  dimensions  =  200  m  x  25  m;  River  current  =  1.0  m/s ec. 

o  Spill  Location:  70  m  from  bank/  10  m  below  surface;  jetting  downward 

o  Numerical  Coefficients;  River  turbulence  level  =  15%; 

Plume  cross-stream  decay  constant,  X  =  1.690; 

Velocity  entrainment  coefficients,  a  =  0.097,  a2  =  1.238; 
Turbulence  entrainment  coefficient,  a3  =  1.000; 

Plume  drag  coefficient,  C^  =  0.3; 

Evaporation  mass  transfer  coefficients  =  0 
Diffusion  coefficients:  for  ey  =  0.6,  for  ez  =  0.067 

o  Baseline  Peak  Concentrations 

5m  downstream:  36.39  kg/nr* 

500m  downstream:  0.1278  kg/m^ 

5000m  downstream:  0.04818  kg/m-* 


Sensitivity  Coefficients 


Parameter  Varied 

5m 

500m 

5000m 

Chemica1  density  +  5% 

-1.65 

1.04 

1.00 

Chemical  flowrate  +  5% 

0.34 

1.11 

1.00 

Puncture  diameter  +  5% 

0.37 

0.01 

0.00 

River  width  +  5% 

0.00 

-1.26 

-0.56 

River  depth  +  5% 

0.00 

-1.78 

-1.46 

River  current  +  5% 

0.50 

-1.34 

-0.98 

Spill  lateral  location  +  5% 

0.00 

0.88 

0.37 

Spill  vertical  location  +  5% 

0.00 

0.55 

0.02 

Spill  jetting  upward 

AC/ C0 =  0.093 

AC/C0  =  -0.039 

AC/C0  = 

Turbulence  level  +  5% 

-0.037 

-0.31 

0.01 

Entrainment  coefficients: 

al  ±  5% 

-0.01 

0.00 

0.00 

a2  +  5% 

-0.050 

-0.11 

0.01 

a3  +  5% 

0.37 

-0.17 

0.01 

Decay  constant  X,  +  5% 

0.00 

-0.20 

0.00 

Diffusion  coefficients 

ty  ±  5% 

0.00 

-0.022 

-0.39 

ez  +  5% 

0.00 

-0.17 

0.13 
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to  the  chemical  density,  with  the  concentration  increasing  as  the  density 
approaches  neutral  buoyancy.  Neutral  buoyancy,  for  which  buoyancy-induced 
mixing  is  absent,  gives,  incidentally,  the  maximum  very-near-f ield  concen¬ 
trations,  at  least  in  comparison  to  densities  which  do  not  vary  too  much 
from  neutral  buoyancy.  The  concentrations  at  500m  and  5000m  vary  in  the 

expected  way.  For  example,  the  concentration  far  downstream  approaches  a 

•  • 

value  of  M/uwd,  where  M  is  the  mass  release  rate,  w  is  the  river  width, 
d  is  the  river  depth,  and  u  is  the  river  current.  Thus,  changes  in  any 
of  these  parameters  change  the  concentration  accordingly.  Likewise,  changes 
in  the  location  of  the  spill  in  the  river  affect  the  concentration  by  in¬ 
creasing  or  decreasing  the  influence  of  the  boundaries.  The  jet  was  ini¬ 
tially  directed  downward  for  the  baseline  case.  The  effects  of  an  initial 
upward  direction  are  given  in  the  table  in  the  form  AC/C0,  since  a  sensi¬ 
tivity  coefficient  can  not  be  defined  for  this  parameter. 

Table  IV. 2  gives  similar  results  for  a  lighter-than-water 
chemical.  In  general,  the  computed  sensitivity  coefficients  are  comparable 
to  Table  IV. 1. 


Figure  IV. 1  is  a  plot  of  the  trajectory  of  the  momentum/ 
buoyancy  plume  for  the  baseline  cases  shown  in  Tables  IV. 1  and  IV. 2.  The 
neutral  stability  case  is  also  shown,  although  the  trajectory  for  r\?”tral 
stability  is  shown  as  a  straight  line  for  clarity. 

IV . 1 . 3  Scale  Modeling  Criteria  for  Laboratory  Tests 

It  was  desired  to  design  a  test  plan  that  would  assist  in 
validating  the  mixing  and  dilution  models  for  a  set  of  laboratory  conditions 
that  simulate  full-scale  conditions  as  much  as  possible.  The  following  set 
of  full-scale  conditions  were  defined  to  guide  the  experimental  plan  devel¬ 
opment  . 

River  Conditions: 

o  depth,  about  12  meters  (40  ft) 
o  width,  about  120  meters  (400  ft) 
o  fresh  water,  no  salinity  intrusion 
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TABLE  IV. 2  SENSITIVITY  COEFFICIENTS  FOR  CONTINUOUS  DISCHARGE 
OF  LIGHTER-THAN-WATER  CHEMICAL  IN  A  STEADY  RIVER 


o  All  Parameters  are  the  same  as  in  Table  IV. 1,  except  the  chemical 
density  is  800  kg/m^ 

o  Baseline  Peak  Concentrations: 

5m  downstream  =  27.11  kg/m^ 

500m  downstream  =  0.09621  kg/m^ 

5000m  downstream  =  0.03192  kg/m^ 


Sensitivity  Coefficients 


Parameter  Varied 

5m 

500m 

5000m 

Chemical  density  +  5% 

2.98 

0.85 

1.01 

Chemical  flowrate  +  5% 

0.36 

-1.08 

1.00 

Puncture  diameter  +  5% 

0.21 

0.50 

0.00 

River  width  +  5% 

0.00 

-1.06 

-0.56 

River  depth  +  5% 

0.00 

-0.41 

-1.54 

River  current  +  5% 

0.66 

-1.33 

-0.98 

Spill  lateral  location  +  5% 

0.00 

0.76 

0.36 

Spill  vertical  location  +  5% 

0.00 

-0.74 

0.04 

Spill  jetting  upward 

AC/Cq  =  -0.072 

AC/Cq=  .096 

AC/C0  = 

Turbulence  level  +  5% 

-0.40 

-0.30 

-0.01 

Entrainment  coefficients: 

“l  ±  5% 

-0.01 

0.00 

0.00 

a2  ±  5% 

-0.52 

-0.21 

0.02 

a3  +  5% 

-0.36 

-0.31 

0.02 

Decay  constant  X,  +  5% 

0.00 

-0.31 

0.01 

Dispersion  coefficients: 

£y  +  5% 

0.00 

-0.25 

-0.39 

e2  +  5% 

0.00 

-0.18 

0.13 

0.006 
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FIGURE  IV. 1  TRAJECTORY  AND  CONCENTRATION  OF  VARIOUS  PLUMES 


o  river  velocity,  0.25  m/s  to  1.0  m/s 

o  shear  velocity,  nominally  5%  to  10%  of  the  river  velocity. 

Spill  Conditions: 

o  chemical  density  gravity  (relative  to  fresh  water) 

~  0.79  positive  buoyancy 
~  1.05  near  neutral  buoyancy 
~  1.70  negative  buoyancy 
o  puncture  diameter,  nominally  0.5  meter 
o  average  spill  velocity,  1  m/s  to  4  m/s 

To  obtain  the  estimate  of  average  spill  velocity,  the  HACS 
venting  rate  model  [ 6  ]  was  run  to  simulate  both  the  discharge  of  cargo  from 
a  tanker  and  a  barge,  see  Figure  IV. 2.  The  results  showed  that  the  discharge 
velocity  and  flow  rate  varied  with  time  as  the  cargo  level  fell  in  the  tank. 

It  was  particularly  noted  that  the  discharge  velocity  decreased  considerably 
once  water  ingestion  into  the  ruptured  tank  began.  However,  for  the  purposes 
of  this  project,  an  average  discharge  velocity  was  determined  from  the  amount 
of  cargo  discharged  and  the  elapsed  time  before  water  ingestion  began.  The 
values  of  discharge  rate  and  discharge  velocity  are  given  in  Table  IV. 3  for 
cargos  with  specific  gravities  of  1.7,  1.05,  and  0.79.  Note  that  the  elapsed 
time  before  water  ingestion  begins  is  greater  than  6 00  seconds  (10  minutes) 
in  every  case.  The  values  of  discharge  velocity  ranged  from  2  m/s  to  4  m/s. 

The  mixing  and  dilution  model  for  a  continuous  spill  has 
three  different  flow  regimes  or  development  phases,  the  very  near  field  (VNF) , 
the  near  field  (NF) ,  and  the  far  field  (FF) .  In  the  VNF,  momentum  and  buoyancy 
effects  have  a  very  strong  influence  on  chemical  plume  trajectory  and  dilution. 
The  list  of  important  variables  includes: 

o  U  velocity  of  spilled  chemical 

o  u  local  river  velocity 

o  pc  density  of  spilled  chemical 

o  p  density  of  river  water 

o  D  diameter  of  tank  puncture 

o  d  local  river  depth 

u.  shear  velocity  of  river  velocity  profile 


o 


•  Hole  Size  =  50  cm  Diameter 

•  Discharge  Coefficient,  CD  =  0.65 

•  Tanks  are  99%  Full  Initially 


FIGURE  IV. 2  TANK  AND  CARGO  GEOMETRY  ASSUMED  FOR  DISCHARGE 
RATE  CALCULATION  USING  HACS  VENTING 
RATE  MODEL 
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o  Cc  orientation  of  chemical  velocity  vector,  as  it  enters 

the  river 

o  v  viscosity  of  the  water  in  the  river. 

Other  factors  of  importance  are: 

o  Loaded  depth  of  the  tank 
o  Location  of  the  puncture  on  the  hull 
o  Height  of  the  puncture  above  the  water  line,  or 
o  Depth  of  submergence  of  puncture  below  the  water  line. 

These  last  four  factors  affect  the  venting  rate  of  chemical  from  the  tank 
puncture  as  a  function  of  time. 

Another  factor  of  importance  is  the  solubility  of  the  chem¬ 
ical  in  water.  When  this  project  was  begun,  the  lower  limit  of  solubility  was 
set  at  lg/lOOcc  of  water.  However,  it  was  noted  that  several  chemicals 
studied  by  Professor  Thibodeaux  at  the  University  of  Arkansas  with  solubil¬ 
ities  in  the  range  of  0.8  to  1.0  g/100  mil  are  very  slow  to  mix  with  water  and 
form  spherical  droplets  when  spilled  into  water  [18] .  The  question  of  a  proper 
lower  solubility  limit  for  use  of  the  mixing  and  dilution  model  was  discussed 
with  the  Coast  Guard  Technical  Monitor  and  it  was  agreed  that  the  lower  limit 
of  solubility  should  be  increased  to  about  10g/100  mfl.  based  on  the  results  of 
Thibodeaux's  work. 


The  list  of  independent  variables  can  be  grouped  into  a  set 
of  dimensionless  variables: 


J 


a  ratio  of  the  momentum  of  the  spilled  chemical  to 
the  local  stream  momentum. 


Fr 


pu 


2 


(Pc-P)gd 


a  densimetric  Froude  number  which  expresses  the  ratio 
of  stream  momentum  to  chemical  buoyancy  force 


u^/u  the  ratio  of  shear  velocity  to  stream  velocity.  This 

ratio  affects  the  turbulent  entrainment  of  the  chem¬ 
ical  plume  by  the  river. 

D/d  a  length  scale  expressed  as  the  ratio  of  puncture 

diameter  to  river  depth. 
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ud/v 


a  Reynolds  number  based  on  river  properties. 


Of  these  five  dimensionless  variables,  we  expected  that  the 
first  three  would  be  of  primary  importance.  The  length  scale  factor  D/d  af¬ 
fects  the  size  of  the  plume  relative  to  the  river.  Larger  values  of  D/d  will 
require  an  earlier  transition  to  the  NF  model  when  the  plume  diameter  reaches 
a  size  approximately  equal  to  the  river  depth.  The  Reynolds  number  is  an  im¬ 
portant  factor  in  determining  whether  a  channel  flow  is  laminar  or  turbulent. 
All  dispersion  experiments  were  conducted  at  a  Reynolds  number  large  enough 
to  ensure  turbulent  entrainment. 

For  a  proper  simulation  of  full-scale  conditions  in  labora¬ 
tory  scale  experiments,  the  full-scale  and  model  scale  values  of  J,  Fr,  u*/u, 
and  D/d  must  be  equal.  For  the  laboratory  simulation  the  following  experi¬ 
mental  chemicals  were  used : 

o  ethanol  (s.g.  ~  0.79) 
o  sucrose  (sugar  water) (s.g.  ~  1.05) 
o  sodium  silicate  (water  glass,  s.g.  ~  1.1  to  1.7) 
which  have  specific  gravities  spanning  the  range  of  interest.  Since  the  labo¬ 
ratory  experiments  were  performed  in  reduced  scale,  Froude  number  equality 
required  that  velocity  and  time  be  scaled  in  the  following  way. 


The  ratio  of  river  depth  in  full-scale  (fs)  to  depth  in 
model-scale  (ms)  is  denoted  by 

X  =  dfs/dms  (IV. 2) 


Froude  number  equality  requires 


(IV. 3) 


since  f  p„  /  p  ]  c  =  [p„/p]  *  and  g,  the  acceleration  of  gravity,  is  the  same 
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in  model  and  full  scales:  thus. 


This  scale  ratio  holds  true  for  all  other  velocities  such  as  U  and  u^ 
as  well. 


Since  velocity  has  the  units  of  length  divided  by  time,  and 
the  ratio  of  full  scale  length  to  model  scale  length  is  X,  we  infer  that  the 
ratio  of  full  scale  time  to  model  scale  time  is  X®*^: 


t.  /  t 
f  s  ms 


=  X 


0.5 


This  ratio  was  helpful  in  guiding  the  duration  of  averaging  times  for 
concentration  samples  and  plume  trajectory  measurements. 


A  consideration  of  important  variables  for  the  instantaneous 
spill  simulations  leads  to  the  same  set  of  dimensionless  variables  with  one 
exception.  The  jet  momentum  ratio  J  and  the  ratio  of  puncture  diameter  to 
river  depth  D/d  for  the  continuous  spill  are  replaced  by  r^/d  where  ^ 
is  the  characteristic  radius  of  the  spill  volume 

vi  =  |-TTri3  (IV. 5) 


IV . 1 . 4  Experimental  Test  Plans 


Experimental  test  plans  were  developed  for  both  continuous 
and  instantaneous  spill  model  validation.  A  scale  model  ratio  of  X  =  50  was 
selected  and  a  rectangular  test  channel  with  w  =  1.52m  and  d  =  0.24m  was 
constructed  at  Texas  A&M  University  for  the  laboratory  scale  experiments. 

The  original  test  plan  for  the  continuous  spill  experiments 
is  shown  in  Table  IV. 4.  This  plan  was  a  1/2  fractional  factorial  test  matrix 
developed  for 

o  three  levels  of  specific  gravity 
ethanol,  0.79 
sucrose,  1.05 
sodium  silicate,  1.5 


o 


two  values  of  densimetric  Froude  number 


mi 


s 


I/;' 


Run 

Number 


1.2  -  1 
1.2  -  2 
1.2  -  3 

1.2  -  4 
1.2  -  5 
1.2  -  6 
1.2  -  7 

1.2  -  8 


.2-9 
.2  -  10 
.2  -  11 
.2  -  12 
.2  -  13 
.2  -  14 
.2  -  15 
.2-16 


1.2  -  17 
1.2  -  18 
1.2  -  19 
1.2  -  20 
1.2  -  21 
1.2  -  22 
1.2  -  23 
1.2  -  24 


12.6 

202 

0.79 

12.6 

12.6 

202 

0.79 

12.6 


16.8 

270 

1.05 

16.8 

16.8 

270 

1.05 

16.8 


24 

384 

1.5 

24 

24 

384 

1.5 

24 


Fr 

u*/u 

0C 

-.061 

0.05 

0° 

-.061 

0.05 

90° 

-.97 

0.05 

90° 

-.97 

0.05 

0° 

-.061 

0.10 

90° 

-.061 

0.10 

0° 

-.97 

0.10 

0° 

-.97 

0.10 

90° 

.26 

0.05 

0° 

.26 

0.05 

90° 

4.1 

0.05 

90° 

4.1 

0.05 

0° 

.26 

0.10 

90° 

.26 

0.10 

0° 

4.1 

0.10 

0° 

4.1 

0.10 

90° 

.026 

0.05 

0° 

.026 

0.05 

90° 

.41 

0.05 

90° 

.41 

0.05 

0° 

.026 

0.10 

90° 

.026 

0.10 

0° 

.41 

0.10 

0° 

.41 

0.10 

90° 

o 


two  values  of  jet  momentum  ratio 

o  two  values  of  friction  velocity 
uA/u  =  0.05 
u^/u  =  0.10 

o  two  values  of  discharge  angle,  0C 

Before  the  test  program  was  begun  it  was  believed  that  this  set  of  tests, 
coupled  with  experimental  measurements  of  buoyant  plume  trajectory  performed 
earlier  by  S.  J.  Wright  [19],  would  be  ideal  for  the  purpose  of  experimentally 
determining  the  plume  entrainment  parameters,  a^,  ot2,  and  required  by 
Ooms'  VNF  model.  However,  as  the  first  tests  were  performed  it  became  clear 
that  the  original  test  plan  would  have  to  be  modified  extensively.  At  the 
values  of  densimetric  Froude  number  required  by  the  test  plan  to  simulate 
actual  cargo  spill  conditions,  plume  buoyancy  effects  continued  to  influence 
the  behavior  of  the  chemical  plume  after  the  plume  reached  either  the  upper 
or  lower  channel  surface.  A  set  of  concentration  profile  measurements  was 
required  that  was  more  extensive  than  originally  planned.  Therefore,  the 
test  plan  was  modified  and  the  experimental  effort  redirected  as  follows. 

o  The  sucrose  solution  with  Fr  =  4.1  showed  an  unexpectedly 

large  amount  of  gravity  spreading  when  the  plume  reached  the 
channel  floor.  In  order  to  validate  the  mixing  and  dilution 
model  for  cases  of  negligible  buoyancy,  a  set  of  tests  with 
dye  mixed  with  water  and  Fr  =  infinity  was  inserted  into  the 
test  program. 

o  Tests  indicated  that  two  levels  of  friction  velocity  for  the 
turbulent  channel  flow  could  not  be  achieved  without  substan¬ 
tial  modification  (roughening)  of  the  channel  floor.  There¬ 
fore,  only  tests  with  u*/u  =  0.05  were  performed. 

o  A  sodium  silicate  solution  with  s.g.  =  1.5  could  not  be  pro¬ 
duced.  A  more  dilute  sodium  silicate  solution  with  s.g.  =  1.4 
was  substituted. 

o  Chemical  pool  formation  on  the  channel  floor  was  found  with  the 
sodium  silicate  solution  and  a  Froude  number  of  0.51.  Tests  at 
lower  values  of  Fr  (by  reducing  channel  velocity)  indicated  that 
the  pool  would  spread  over  the  full  width  of  the  test  channel. 


A  greater  channel  width  would  be  needed  if  the  pool  were  to 
reach  its  maximum  equilibrium  size.  Therefore,  all  tests  in 
the  test  plan  with  values  of  Fr  <  0.1  had  to  be  deleted  from 
the  test  program. 

o  Flow  visualization  tests  with  0C=  90°  (vertical  downward)  in¬ 
dicated  that  this  discharge  angle  simply  produced  a  quicker 
transition  to  the  Colenbrander  model.  These  tests  were  deleted 
in  order  to  concentrate  the  maximum  effort  on  the  9C=  0°  cases 
that  produced  surface  plume  spreading  due  to  buoyancy. 

The  final  test  plan  for  validation  of  the  continuous  spill  model  is  shown 
in  Table  IV. 5. 

The  test  plan  developed  for  validation  of  the  instantaneous 
spill  model  was  modified  in  a  similar  manner.  The  original  test  matrix  is 
shown  in  Table  IV. 6.  Tests  with  u*/tt  =  0.10  were  deleted  while  a  set  of 
tests  with  water  and  dye  was  inserted.  The  series  of  tests  with  r^/d  =  0.5 
proved  to  be  too  large  for  the  laboratory  channel.  However,  tests  with 
x±/A  =  0.125  and  0.23  were  performed.  The  final  test  plan  is  shown  in  Table 
IV.  7. 

Although  the  number  of  tests  included  in  the  final  test 
plan  was  smaller  than  in  the  original  test  plan,  the  amount  of  data  acquired 
per  test  was  more  comprehensive.  Cross-stream  and  depth-wise  concentrations 
were  measured  at  several  downstream  locations  (or  for  several  times)  for  each 
test.  The  test  data  wa3  more  than  adequate  to  serve  the  purposes  of  model 
validation. 


TABLE  IV. 5  FINAL  TEST  PLAN  FOR  VALIDATING  THE 
CONTINUOUS  SPILL  MODEL 


Run 

Number 

Pc/P 

1.2  -  3 

0.79 

1.2  -  4 

0.79 

1.2  -  9 

1.05 

1.2  -  11 

1.05 

1.2  -  12 

1.05 

1.2  -  19 

1.40 

1.2  -  20 

1.40 

1.2  -  26 

1.0 

1.2  -  27 

1.05 

0.79 

12.6 

16.8 

1.05 

16.8 

1.4 
22.4 
16.0 

7.5 


Fr 

uA/u 

0c 

-0.97 

.05 

0° 

-0.97 

.05 

0° 

0.26 

.05 

0° 

4.1 

.05 

0° 

4.1 

.05 

0° 

0.51 

.05 

0° 

0.51 

.05 

0° 

Infinite 

.05 

0° 

0.51 

.05 

0° 

TABLE  IV. 6  ORIGINAL  TEST  PLAN  FOR  VALIDATION  OF  THE 
INSTANTANEOUS  SPILL  MODEL 


Run 

Number 

Pc/P 

r±/d 

u*/u 

11. 1  -  1 

0.79 

0.125 

0.05 

II. 1  -  2 

0.79 

0.25 

0.05 

II. 1  -  3 

0.79 

0.50 

0.05 

II. 1  -  4 

0.79 

0.125 

0.10 

II. 1  -  5 

0.79 

0.25 

0.10 

II. 1  -  6 

0.79 

0.50 

0.10 

II. 1  -  7 

1.05 

0.125 

0.05 

II. 1  -  8 

1.05 

0.25 

0.05 

II. 1  -  9 

1.05 

0.50 

0.05 

II. 1  -  10 

1.05 

0.125 

0.10 

II. 1  -  11 

1.05 

0.25 

0.10 

II. 1  -  12 

1.05 

0.50 

0.10 

II. 1  -  13 

1.50 

0.125 

0.05 

II. 1  -  14 

1.50 

0.25 

0.05 

II. 1  -  15 

1.50 

0.50 

0.05 

II. 1  -  16 

1.50 

0.125 

0.10 

II. 1  -  17 

1.50 

0.25 

0.10 

II. 1  -  18 

1.50 

0.50 

0.10 

TABLE  IV. 7  FINAL  TEST  PLAN  FOR  VERIFYING  INSTANTANEOUS  SPILL 

MODEL  PREDICTIONS 


Run 

Number 

Pc/P 

Spill 

Material 

r-[/d 

- ^ 

(cm^) 

u*/u 

II. 1  -  1 

0.79 

Ethyl 

Alcohol 

0.125 

103 

0.05 

II. 1  -  2 

0.79 

fl 

0.23 

904 

0.05 

II. 1  -  7 A 

1.05 

Sucrose 

0.125 

103 

0.05 

II. 1  -  7B 

1.05 

11 

0.125 

103 

0.05 

II. 1  -  8A 

1.05 

M 

0.23 

904 

0.05 

II. 1  -  8 B 

1.05 

II 

0.23 

904 

0.05 

II. 1  -  13 

1.40 

Sodium 

Silicate 

0.125 

103 

0.05 

II. 1  -  14 

1.40 

II 

0.23 

904 

0.05 

II. 1  -  19 

1.00 

Water 

0.125 

103 

0.05 

II. 1  -  20 

1.00 

II 

0.23 

904 

0.05 

IV. 2  Data  Collection  Methodoloi 


IV . 2 . 1  Flow  Channel 

The  86'  three-dimensional  wave  tank  at  Texas  A&M  University, 
College  Station,  Texas,  was  modified  to  provide  the  50:1  scale  model  of  a 
steady,  non-tidal  river  specified  in  the  test  plan.  The  dimensions  of  this  modi 
fied  channel  were  26.2m  (86  ft)  long,  152  cm  (5  ft)  wide,  and  61  cm  (2  ft) 
deep. 


The  water  inlet  area  was  constructed  using  a  combination  of 
a  diffuser,  baffles,  weirs,  rubberized  hogs  hair,  and  screens  to  yield  a  uni¬ 
form  flow  field  across  the  width  of  the  channel.  The  spill  location  was  16 
feet  downstream  of  the  last  flow  straightening  screens.  In  the  next  16-foot 
section,  one  wall  was  made  of  plexiglas  for  flow  visualization  purposes. 

Also  in  this  area,  stripes  were  painted  on  the  floor,  every  two  feet  down¬ 
stream  and  one  foot  cross-stream,  and  on  the  wall  opposite  the  plexiglas  wall, 
every  two  feet  downstream  and  2  inches  vertically,  to  aid  in  quantifying  re¬ 
sults  from  flow  visualization;  an  overall  view  of  the  channel  is  shown  in 
Figure  IV. 3. 

Water  velocities  ranged  from  3.5  cm/sec  to  14.1  cm/s ec 
while  maintaining  a  constant  water  depth  of  24  cm  (9-1/2  inches).  The  water 
velocities  were  controlled  by  valving  of  the  supply  water  to  the  channel. 

The  water  depth  was  kept  constant  using  an  adjustable  weir  hinged  on  the 
channel  floor.  The  channel  floor  roughness  simulated  a  smooth  channel  with 
u*/u  =  0.05. 


IV. 2. 2  Instrumentation 


Detailed  information  about  the  horizontal  and  vertical 
velocity  profiles  and  shear  velocity  was  obtained  using  hot-film  anemometry. 
The  instrumentation  used  was  a  Thermo  Systems,  Inc.  (TSI)  Model  1051  Monitor 
&  Power  Supply  coupled  with  a  TSI  Model  1050  Constant  Temperature  Anemometer 
equipped  with  a  decade  resistor.  A  TSI  Model  1076  True  RMS  Voltmeter  was 
used  to  obtain  turbulence  information  necessary  for  calculation  of  the  shear 
velocity.  Six-mil  hot-film  probes  were  chosen  to  be  appropriate  for  this 


application  and  were  mounted  on  a  manually  operated  vertical  and  horizontal 
traversing  mechanism. 

Dye  concentration  measurements  were  obtained  using  a  Turner 
Associates  Model  430  Spectro-Fluorometer .  In  general,  fluorometers  measure 
the  intensity  of  fluorescent  light  emitted  by  a  sample  under  constant  input 
light  intensity.  The  measured  intensity  is  directly  proportional  to  the 
concentration  of  the  fluorescent  compound.  This  implies  that,  after  calibra¬ 
tion,  dye  concentrations  can  be  read  directly  from  the  instrument. 

Since  the  excitation  and  emission  frequencies  are  different 
for  various  fluorescent  dyes,  appropriate  filters  must  be  used  for  each  dye. 

The  advantage  of  the  Turner  Associates  Model  430  is  that  it  is  equipped  with 
adjustable  excitation  and  emission  monochromators,  similar  to  decade  resistors, 
that  allow  more  versatility  than  the  colored  glass  filter  fluorometers,  also 
known  as  fluorimeters.  The  Model  430  also  uses  a  Xenon  light  source  as 
opposed  to  the  UV  light  source  of  the  fluorimeters. 

IV. 3  Data  Collection 

IV . 3 . 1  Test  Methods 

Rhodamine  WT,  a  fluorescent  dye,  was  added  to  each  spill 
chemical  just  before  spilling.  This  was  done  so  that  when  river  samples 
were  taken  the  fluorescence  could  be  measured.  The  ratio  of  the  local  dye 
concentration,  measured  as  fluorescence,  to  the  dye  concentration  at  the 
time  of  the  spill  yields  the  dilution  of  the  dye  and  is  thus  the  dilution 
of  the  spill  chemical.  Multiplication  of  this  ratio  by  the  spill  density 
yields  the  local  concentration.  The  dye  was  added  to  the  chemical  solutions  in 
predetermined  amounts  so  that  the  dye  concentration  in  samples  that  had  been 
diluted  with  water  from  the  channel  could  be  measured  by  the  fluorometer. 

For  the  continuous  spills,  the  chemical  and  dye  tracer 
mixture  was  discharged  from  a  discharge  port  located  at  mid-water  depth  in 
the  center  of  the  channel  width.  The  port  was  formed  from  a  1-cm-diameter 
tube  bent  90°  to  give  a  discharge  in  the  flow  direction  (0°  is  the  angle 


between  the  discharge  direction  and  the  river  flow  direction).  An  airfoil 
section  was  fitted  to  the  downstream  side  of  the  discharge  tube  to  mini¬ 
mize  vortex  formation  and  disturbances  to  the  river  velocity  profile. 

The  spill  setup  for  the  continuous  spills  of  chemical  and 
dye  is  shown  in  Figure  IV. 3.  The  chemical  and  dye  were  premixed  in  the  pictured 
can  by  a  propeller  attached  to  an  electric  motor.  This  mixture  was  then 
pumped  to  the  port  at  the  discharge  rates  specified  in  the  test  plan  using 
a  variable  speed  motor  and  a  1/4"  rotary  gear  pump. 

During  discharge  of  the  chemical  and  dye  mixture,  water 
samples  from  the  channel  were  drawn  through  a  sampling  rake  by  a  bank  of  ten 
peristaltic  pumps  and  discharged  into  an  array  of  sample  bottles.  Figures 
IV. 4  and  IV. 5  show  typical  arrangements  of  the  vertical  and  horizontal  rakes, 
respectively.  The  spacing  of  the  collection  ports  on  the  rakes  were  varied 
to  maximize  data  collection  over  the  height  and  width  of  the  plume  at  the 
sampling  location.  Figure  IV. 6  shows  the  arrangement  of  the  pumps  and  sample 
bottles  above  the  sampling  location. 

The  basic  procedure  was  to  take  vertical  C(z)  concentra¬ 
tion  profiles  at  three  cross-stream  (in  the  y-direction)  locations  for  two  or 
three  downstream  (in  the  x-direction)  stations.  The  y,  or  cross-stream, 
locations  were  chosen  from  flow  visualization  to  be  in  the  center  and  within 
the  left  and  right  edges  of  the  chemical  and  dye  plume.  The  two  x  stations 
generally  used  were  x  =  1.22m  (48  in.)  and  x  =  3.05m  (120  in.).  The 
vertical  center  of  the  plume  was  located  approximately  from  flow  visualiza¬ 
tion,  and  a  horizontal  rake  of  equally  spaced  sample  ports  was  set  at  the 
depth  that  corresponded  to  the  maximum  plume  concentration. 

To  simulate  "instantaneous"  spills,  the  following  pro¬ 
cedure  was  used: 


One  end  of  an  appropriately  sized  piece  of  PVC 
pipe  was  covered  with  a  tightly  stretched  rubber 
bladder  which  was  held  by  a  hose  clamp  (see 
Figure  IV. 7). 


o 


FIGURE  IV. 7  INSTANTANEOUS  SPIL^  CONTAINERS  WITH  TIGHTLY 
STRETCHED  RUBBER  BLADDER 


o  The  appropriate  volume  of  chemical  was  poured  into 
the  open  end  of  the  PVC  pipe  and  retained  in  the 
pipe  by  the  bladder. 

o  The  PVC  pipe  was  immersed  into  the  water  until  the 

center  of  the  column  of  chemical  was  at  mid-depth  of 
the  water  and  centered  in  the  channel;  i.e.,  the  center 
of  the  spill  volume  was  placed  at  x  =  0  in.,  y  =  0  in., 
z  =  4.75  inches. 

o  From  the  top,  with  the  aid  of  a  razor  blade  attached  to 
a  rod,  simultaneously  the  rubber  bladder  was  broken  and 
the  pipe  was  lifted  straight  up  and  out  of  the  water, 
releasing  the  chemical  into  the  river.  Figure  IV. 8  shows  an 
alcohol  spill  soon  after  the  spill  was  released. 

To  obtain  river  samples  for  analysis,  a  manually  operated 
test  tube  rack  was  constructed  so  that  fifteen  sets  of  ten  samples  could 
be  collected  at  various  times  as  the  spill  passed  by  a  certain  x  loca¬ 
tion  downstream  of  the  spill  (  Figure  VI. 9).  The  time  between  each  set  of 
collected  samples  depended  on  the  spill  material,  spill  size,  and  river  speed. 
This  time,  based  on  flow  visualization,  was  chosen  to  allow  samples  to  be 
collected  in  15  sets  or  less,  over  a  large  portion  of  the  time  it  took  for  the 
spill  to  pass  the  designated  x  location.  For  the  low  river  speed  cases,  the 
time  for  each  sample  set  had  to  be  increased  to  allow  for  collection  of  a  large 
enough  sample  for  analysis,  since  the  sampling  flow  rate  was  specified  so  as 
to  collect  the  samples  isokinetically. 

The  sampling  rake  arrays  were  set  up  for  each  test  at  4.27m 
(168  in.)  downstream  of  the  spill  location,  based  on  information  gained  during 
flow  visualization.  Figure  IV. 10  is  a  channel  cross-sectional  view  of  a 
typical  sampling  rake  array  with  both  a  vertical  and  horizontal  portion. 

The  vertical  rake  arrays  were  spaced  and  positioned  based 
on  the  buoyancy  of  the  chemical  spilled.  For  neutrally  buoyant  spills,  these 
rakes  were  spaced  over  the  full  depth  of  the  water.  For  the  positively 
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FIGURE  IV. 9  TEST  TUBE  RAKE  FOR  SAMPLING  DURING 
INSTANTANEOUS  SPILL  TESTS 


FIGURE  IV. 10  CHANNEL  CROSS-SECTIONAL  VIEW  OF  TYPICAL  SAMPLING  RAKE  ARRAY 


buoyant  and  negatively  buoyant  spills,  the  vertical  rakes  were  spaced  closer 
together  and  either  raised  to  the  free  surface  or  lowered  to  the  floor,  re¬ 
spectively. 

The  depth  of  the  horizontal  rake  arrays  was  also  based  on 
the  buoyancy  of  the  chemical  spilled:  near  the  free  surface  for  the  positively 
buoyant  spills,  near  the  center  for  neutrally  buoyant  spills,  and  near  the 
floor  for  negatively  buoyant  spills. 

Due  to  the  desire  to  collect  both  vertical  and  horizontal 
concentration  profile  data  during  a  single  spill  and  the  collection  pump 
limitation  of  ten  samples  per  set,  the  horizontal  rake  arrays  spanned  only 
one-half  of  the  channel  width.  It  is  believed  that  the  spills  were  symmetric 
about  the  channel  centerline,  and  thus  a  concentration  profile  across  the 
full  width  can  be  approximated  by  a  reflection  of  the  gathered  data  across 
this  centerline. 

IV . 3 . 2  Test  Results 

The  results  of  the  hot-film  anemometry  velocity  measurements 
for  the  two  river  velocities  specified  in  the  test  plan  are  included  as 
Figures  IV. 11  through  IV. 14.  For  each  river  velocity  there  is  a  graph  of 
the  horizontal  velocity  profile  at  x  =  3.05m  (120  in.),  showing  that  the 
flow  field  was  fairly  uniform  acrosj  the  channel  width.  There  are  also  graphs 
of  the  vertical  velocity  profiles  at  x  =  3.05m  (120  in.),  showing  that  there 
was  a  turbulent  boundary  layer.  Also  indicated  on  the  graphs  of  the  vertical 
profiles  are  best-fit  values  of  the  shear  velocity,  u*,  for  that  river 
velocity.  In  both  cases  the  ratio  of  shear  velocity  to  free  stream  velocity 
is  0.04.  This  value  is  close  to  the  0.05  estimated  in  the  test  plan. 

Only  a  general  overview  of  the  continuous  spill  experiments 
based  on  flow  visualization  will  be  presented  in  this  section.  For  detailed 
information  about  each  test,  see  Appendices  K  through  S  in  the  Test  Data 
Volume  of  the  Final  Report.  Included  in  these  appendices  are  graphs  of: 
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FIGURE  IV. 12 


14.1  cm/ 


FIGURE  IV. 14  VERTICAL  VELOCITY  PROFILE  FOR  RIVER  VELOCITY 


(1)  Cross-stream  distance  vs.  concentration  to  aid  in  the 
understanding  of  the  lateral  mixing  and  dilution 
(y-direction) . 

(2)  Distance  from  free  surface  vs.  concentration  to  aid  in 
the  understanding  of  the  vertical  mixing  and  dilution 
(z-direction) . 

Figure  IV. 15  shows  photographs  of  the  development  of  neutrally 
buoyant  plumes  of  dye  and  water  (specific  gravity  =  1.0)  discharged  at  two 
different  flow  rates  (44.4  and  11.1  cmVs)  for  the  same  river  speed  (14.1  cm/s). 
The  dye  plumes  spread  symmetrically  in  the  vertical  and  lateral  directions. 

The  top  and  bottom  edges  of  the  dye  plume  reached  the  upper  and  lower  river 
surfaces  at  a  distance  of  about  183  cm  (6  ft)  downstream  from  the  discharge 
port.  The  dye  plume  did  not  rise  or  fall  after  discharge.  Figure  IV. 16,  since 
the  Froude  number  was  infinite  and  buoyancy  effects  were  absent. 

Figure  IV. 17  shows  a  similar  set  of  photographs  of  the  devel¬ 
opment  of  negatively  buoyant  plumes  of  dye  and  sucrose  (specific  gravity  = 

1.05).  The  dye  plumes  fell  vertically  downward  after  discharge  and  hit  the 
bottom  of  the  channel  at  approximately  46  cm  (18  in.)  downstream  of  the  dis¬ 
charge  port.  The  dye  plume  then  spread  horizontally  over  the  river  bottom  due 
to  buoyant  (gravity)  effects.  The  amount  of  lateral  spread  at  any  downstream 
distance  is  greater  at  the  higher  discharge  flowrate,  condition  A,  than  for 
the  lower  flowrate,  condition  B.  The  dye  plume  was  concentrated  in  the  lower 
10  cm  to  15  cm  of  the  channel  depth  (total  depth  is  about  24  cm) .  No  dye  was 
observed  at  the  top  of  the  channel  within  the  first  488  cm  (16  ft)  downstream 
of  the  discharge  port.  Figures  IV. 18  and  IV. 19  are  results  for  condition  A, 

Run  1.2-12,  at  3.05m  downstream.  These  are  typical  of  the  graphs  included  in 
the  Test  Data  Volume. 

Figure  IV. 20  shows  a  set  of  photographs  of .the  development 
of  positively  buoyant  plumes  of  dye  and  ethyl  alcohol  (specific  gravity  = 

0.79).  The  dye  plumes  rose  after  discharge,  as  shown  in  Figure  IV. 21,  and 
reached  the  upper  channel  surface  at  about  25  cm  (12  in.)  from  the  discharge 
port. 
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FIGURE  IV. 15  FLOW  VISUALIZATION  OF  CONTINUOUS  DISCHARGE 
OF  A  NEUTRALLY  BUOYANT  MIXTURE  OF  DYE  AND  WATER 


Flow  Conditions  River  Speed  Discharge  Flowrate 
A  14.1  cm/s  44.4  cm-fys 

B  14.1  cm/s  11.1  cm^/s 
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FIGURE  IV. 17  FLOW  VISUALIZATION  OF  CONTINUOUS  DISCHARGE 
OF  A  HEAVIER  THAN  WATER  MIXTURE  OF  DYE  AND  SUCROSE 


FIGURE  IV. 19  RUN  I.  2-12  VERTICAL  CONCENTRATION  PROFILES 
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Flow  Conditions 

River  Speed 

Discharge  Flowrate 

J 

Fr 

A 

14.1  cm/s 

44.4  cm3/s 

12.6 

-0.97 

B 

14.1  cm/s 

11.1  cm3/s 

0.79 

-0.97 

FIGURE  IV. 20  FLOW  VISUALIZATION  OF  CONTINUOUS  DISCHARGE 
OF  A  LIGHTER  THAN  WATER  MIXTURE  OF  DYE  AND 
ETHYL  ALCOHOL  (s.g.  =  0.79) 


92 


The  lateral  buoyant  spreading  of  the  dye  plume  is  noticeably 
more  pronounced  for  the  alcohol  discharge  than  for  the  sucrose  discharge  in 
Figure  IV. 17.  At  the  lower  discharge  flowrate,  condition  B,  the  dye  plume  was 
seen  to  bifurcate  after  hitting  the  water  surface  and  spread  downstream  as  two 
distinct  dye  plumes.  The  dye  plume  was  concentrated  in  the  upper  7  to  15  cm 
of  the  channel  depth.  No  dye  was  observed  at  the  bottom  of  the  channel. 

Figure  IV. 22  shows  the  set  of  photographs  of  the  development 
of  negatively  buoyant  plumes  of  dye  and  sodium  silicate  (specific  gravity  = 

1.4).  The  dye  plumes  fell  rapidly.  Figure  IV. 23,  after  discharge  and  reached 
the  bottom  of  the  channel  within  15  cm  (6  in.)  from  the  discharge  port.  The 
dye  plumes  spread  laterally  very  rapidly  with  the  same  dependence  on  flowrate 
as  seen  in  Figures  IV. 17  and  IV. 20.  Figure  IV. 24  shows  successive  stages  of 
the  development  of  the  sodium  silicate  plume  with  a  flowrate  of  44.4  cm^/s. 

The  dye  plume  had  spread  out  over  the  full  width  of  the  channel  (152  cm  or  5  ft) 
by  the  time  the  leading  edge  reached  a  distance  of  244  cm  (8  ft)  from  the  dis¬ 
charge  port.  The  height  of  the  dye  plume  was  very  small,  only  about  1  cm  in 
thickness  at  a  distance  of  488  cm  downstream  from  the  discharge  port. 

As  for  the  continuous  spills,  only  a  general  overview  of  the 
instantaneous  results  based  on  flow  visualization  and  review  of  the  measured 
concentration  data  will  be  presented  in  this  section.  Detailed  information 
about  each  case  included  in  Appendices  A  through  J  of  the  Test  Data  Volume 
which  consist  of  graphs  of : 

(1)  Concentration  vs.  time  for  one  representative  location  in 
the  flow  to  aid  in  the  understanding  of  the  mixing  and 
dilution  in  the  direction  of  the  stream  (x-direction) . 

(2)  Cross-stream  distance  vs.  concentration  to  aid  in  the 
understanding  of  the  lateral  mixing  and  dilution  (y-direction) . 

(3)  Distance  from  free  surface  vs.  concentration  to  aid  in  the 
understanding  of  the  vertical  mixing  and  dilution  (z-direction) . 
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FIGURE  IV. 22  FLOW  VISUALIZATION  OF  A  CONTINUOUS  DISCHARGE  OF  A  HEAVIER  THAN  WATER  MIXTURE 

OF  DYE  AND  SODIUM  SILICATE  (s.g.  =  1.40) 


FIGURE  IV. 23  SIDE  VIEW  OF  A  NEGATIVELY  BUOYANT  PLUME 


OW  VISUALIZATION  OF  THE  DEVELOPMENT  OF  A  CONTINUOUS  DISCHARGE  OF  A  HEAVIER  THAN  WATER  MIXTURE 

OF  DYE  AND  SODIUM  SILICATE  (s.g.  =  1.40) 


The  series  of  photographs  labeled  Figure  IV. 25,  shows  a 
time  lapse  sequence  of  a  904  cm^  instantaneous  spill  of  a  positively  buoyant 
mixture  of  dye  and  ethyl  alcohol  (specific  gravity  =  0.79),  specified  in  the 
test  plan  as  Run  II. 1-2.  As  can  be  seen  in  this  set  of  photographs,  the 
chemical  rose  to  the  water  surface  and  spread  as  a  pool,  quickly  reaching  the 
sides  of  the  channel.  The  chemical  was  confined  to  within  the  top  6.35  cm  of 
the  river,  even  4.27m  (168  in.)  downstream  of  the  spill  location.  The  103  cm-* 
spill  of  dye  and  ethyl  alcohol  (not  shown)  exhibited  these  same  characteristics 
except  that  the  chemical  was  confined  to  the  top  5.0  cm  of  the  river,  4.27  cm 
downstream  of  the  spill. 

The  series  of  photographs  labeled  Figure  IV. 26,  show  a  time 
lapse  sequence  of  a  904  cm^  instantaneous  spill  of  a  negatively  buoyant  mix¬ 
ture  of  dye  and  sodium  silicate  (specific  gravity  =  1.4),  specified  in  the 
test  plan  as  Run  II. 1-14.  As  can  be  seen,  the  chemical  sank  to  the  bottom 
of  the  channel  and  spread  as  a  pool  quickly  reaching  the  sides  of  the  channel. 
The  chemical  was  confined  to  the  lower  4.0  cm  of  the  channel,  even  at  4.27m 
although  the  highest  concentration  was  in  the  lower  1.5  cm  of  the  channel. 

Also  noticed  in  these  photographs  are  the  waves  of  chemical  reflecting  off 
the  walls  and  moving  back  across  the  channel. 

The  103  cm-*  instantaneous  spill  of  dye  and  sodium  silicate. 
Run  II. 1-13,  exhibited  slightly  different  characteristics.  Due  to  the  spill 
volume  being  smaller,  the  spill  width  at  4.27m  downstream  was  measured  to  be 
only  61  cm  (24  in.)  in  the  152  cm  wide  channel.  Since  the  chemical  had  not 
yet  reflected  off  the  walls,  the  chemical  was  spread  on  the  bottom  slightly 
thinner  than  the  4.0  cm  noted  for  the  904  cm^  spill. 

The  instantaneous  spills  of  negatively  buoyant  dye  and 
sucrose  (specific  gravity  =  1.05)  exhibited  many  of  the  same  characteristics 
as  the  103  cnr*  dye  and  sodium  silicate  spill.  The  sucrose  spills  sank  to 
the  bottom  of  the  channel  but  by  4.27m  downstream  had  mixed  more  in  the 
vertical  direction  and  spread  less  in  the  horizontal  direction.  In  some 
cases  the  spill  was  spread  throughout  the  entire  depth  by  this  point. 


FIGURE  IV. 25  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  ETHYL  ALCOHOL  AND  DYE 


FIGURE  IV. 25  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  ETHYL  ALCOHOL  AND  DYE  (Contd) 


FIGURE  IV. 26  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  SODIUM  SILICATE  AND  DYE 


FIGURE  IV. 26  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  SODIUM  SILICATE  AND  DYE  (Contd) 


FIGURE  IV. 26  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  SODIUM  SILICATE  AND  DYE  (Contd) 


The. series  of  photographs  labeled  Figure  IV. 27,  show  a 
time  lapse  sequence  of  a  904  cm-*  instantaneous  spill  of  a  neutrally  buoyant 
mixture  of  dye  and  water  (specific  gravity  =  1.0),  specified  in  the  test 
plan  at  Run  II. 1-20.  As  can  be  seen,  the  spill  stayed  centered  in  the  channel 
and  dispersed  vertically  as  well  as  laterally  as  it  travelled  down  the  channel 
This  spill  spread  to  a  width  of  less  than  61.0  cm  at  the  observation  point 
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4.27m  downstream  of  the  spill  location. 
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FIGURE  IV. 27  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  WATER  AND  DYE 


FIGURE  IV. 27  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  WATER  AND  DYE  (Contd) 


FIGURE  IV. 27  TIME  LAPSE  SEQUENCE  OF  AN  INSTANTANEOUS  SPILL  OF  WATER  AND  DYE  (Contd) 


V.  COMPARISONS  OF  MODELS  AND  TESTS 


. ♦ 


As  discussed  in  the  preceding  section,  tests  of  continuous  and  in¬ 
stantaneous  spills  in  a  model  steady  river  represent  the  data  base  for  model 
verification.  Since  all  the  models  contain  one  or  more  empirical  constants, 
some  of  the  test  data  were  used  to  determine  "best"  values  of  the  constants 
and  other,  independent  tests  were  used  to  serve  as  comparisons  to  the  model 
predictions. 

V.l  Continuous  Spills  in  Steady  Rivers 

This  section  presents  a  comparison  of  plume  model  predictions  for  plume 
width  and  concentration  distribution  with  some  of  the  data  taken  during  the 
laboratory  test  program.  For  this  comparison,  one  run  was  selected  for  each 
value  of  chemical  specific  gravity,  0.79,  1.0,  1.05,  and  1.40.  Model  pre¬ 
dictions  were  made  using  the  same  values  of  entrainment  parameters  for  each 
run.  Data  from  the  runs  with  s.g.  =  1.05  and  1.40  were  used  to  derive  a 
modified  version  of  Colenbrander ' s  4>(Ri*)  function  (see  Equation  III. 22). 

The  modified  function  is 

4>(Ri*)  -  0.62  +  1.3911  x  Ri*0:?  (V.l) 

In  general,  the  agreement  between  plume  model  predictions  and  data  is  good. 
However,  further  optimization  of  the  empirical  parameters  in  both  Ooms'  and 
Colenbrander ' s  models  might  improve  the  agreement  even  more. 


Figures  V.l  to  V.4  compare  model  predictions  with  data  for  Run  1.2-25, 
a  continuous  discharge  of  neutrally  buoyant  water  and  dye  with  s.g.  =  1.0. 
Since  this  chemical  has  negligible  buoyancy  flux,  its  trajectory  and  dilution 
are  sensitive  only  to  the  values  of  and  ,  the  entrainment  coeffi¬ 

cients  for  shear  ax.d  channel  turbulence.  Figures  V.l  and  V.3  show  that  the 
cross-stream  width  of  the  plume  is  slightly  overpredicted  and  the  maximum 
concentration  underpredicted  at  x  =  1.21m  (48  inches)  and  3.04m  (120  inches). 
Likewise,  the  predicted  vertical  concentration  profiles  shown  in  Figures 
V.2  and  V.4  are  slightly  "flatter"  than  indicated  by  the  data.  We  may 


109 


PREVIOUS  PAGE 
IS  BLANK 


Dimensionless  Concentration 


Inches  Depth,  Inches 


IOYANT  CHEM 


FOR  CONTINUOUS  SPILL  OF  NEUTRALLY  BUOYANT 


CHEMICAL 


OF  NEUTRALLY  BUOYANT  CHEMICAL 


conclude  from  this  comparison  that  the  plume  models  predict  fairly  well  the 
correct  concentration  distribution  for  neutrally  buoyant  discharges.  Agree¬ 
ment  can  be  improved  further  by  optimizing  the  values  of  and  013  for 

best  fit. 

Figures  V.5  to  V.9  compare  model  predictions  and  data  for  Run  L.2-12, 
a  continuous  discharge  of  sucrose  and  dye  with  s.g.  =  1.05.  Figure  V.5  shows 
very  good  agreement  between  the  predicted  plume  boundary  (y  =  Beff)  and  the 
observations  of  flow  visualization.  Figure  V.6  compares  the  plume  centerline 
concentration  predictions  at  y  =  0  and  z  =  d  with  data.  The  agreement 
is  good  for  x  >  5  meters.  At  lower  distances  the  plume  was  slightly  bifur¬ 
cated  and  the  centerline  concentration  was  lower  than  on  the  side  lobes. 

Figure  V.7  shows  that  the  predicted  values  of  Sz  agree  fairly  well  with 
experimental  values  of  S2  obtained  from  the  concentration  profile  data. 
Figures  V.8  and  V.9  show  predicted  and  measured  cross-stream  concentration 
profiles  at  1.21m  (48  inches)  and  3.05m  (120  inches).  The  overall  agreement 
is  good,  although  the  plume  model  does  not  simulate  the  bifurcated  profile 
exactly . 

Figures  V.10  to  V.14  compare  model  predictions  and  data  for  Run  1.2-20, 
a  continuous  discharge  of  sodium  silicate  and  dye  with  s.g.  =  1.40.  Since 
the  Froude  number  associated  with  this  release  is  <0.6,  the  chemical  pool 
spreading  model  is  used.  As  described  in  Section  III. 2. 3,  this  model  assumes 
that  the  plume  of  diluted  chemical  forms  a  pool  over  the  bottom  of  the  channel. 
The  equilibrium  size  of  the  pool  is  determined  by  a  balance  between  the  mass 
flow  rate  into  the  pool,  given  by  Equation  III. 33,  and  the  rate  of  entrainment 
(or  uptake)  of  chemical  solution  into  the  flowing  water  stream  above  the  pool, 
given  by  Equation  III. 34.  As  shown  in  Figure  III. 3,  the  pool  is  assumed  to 
be  square  in  shape  with  dimensions  of  L  x  L,  m^.  Gravity  spreading  of  the 
entrained  chemical  is  assumed  to  begin  at  the  downstream  pool  boundary  at 
x  =  L/2,  m. 

Figure  V.10  compares  the  predicted  plume  boundary  above  the  floor  of 
the  channel  with  data  obtained  from  observations  of  the  plume  boundary  during 
flow  visualization.  As  shown  in  this  figure,  the  plume  model  predicts  a 
square  area  source  with  L  ^  1.28m.  Downstream  of  the  source  area,  the 
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FIGURE  V. 6  PREDICTED  AND  MEASURED  VALUES  OF  PLUME 
CENTERLINE  CONCENTRATION  FOR  SUCROSE,  s.g.  =  1.05 
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FIGURE  V. 7  PREDICTED  AND  MEASURED  VALUES 
OF  S  FOR  SUCROSE,  s.g.  =  1.05 
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FIGURE  V. 8  CROSS-STREAM  CONCENTRATION  PROFILE  AT 
x  =  1.21m  (48  INCHES)  FOR  SUCROSE,  s.g.  =  1.05 
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•  EXPERIMENTAL  DATA  FROM  RUN  1.2-12 
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FIGURE  V. 9  CROSS-STREAM  CONCENTRATION  PROFILE  AT 
x  =  3.04m  (120  INCHES)  FOR  SUCROSE,  s.g.  =  1.05 


FIGURE  V.10  PLUME  BOUNDARY  FOR  SODIUM  SILICATE 
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•  EXPERIMENTAL  DATA  FROM  RUN  1.2-20 
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FIGURE  V. 14  CROSS-STREAM  CONCENTRATION  PROFILE  AT 
=  3.04m  (120  INCHES)  FOR  SODIUM  SILICATE,  s.g.  =  1 


plume  boundary  (y  =  Be^f)  is  predicted  to  reach  the  channel  walls  at  x  =  1.05m. 
At  this  location  the  plume  boundary  reflects  back  towards  the  plume  center. 

The  model  predicts  that  the  reflections  cross  in  the  center  of  the  channel  at 
x  =  2.93m. 


Flow  visualization  tests  revealed  a  somewhat  different  behavior  as  shown 
in  Figure  V.10.  The  area  source  did  not  extend  as  far  upstream  as  predicted 
by  the  model,  and  lateral  gravity  spreading  of  entrained  chemical  occurred 
above  the  pool.  As  a  result,  the  plume  boundary  reached  the  channel  wall  at 
x  =  0.5m  instead  of  at  1.05m  as  predicted  by  the  model.  Flow  visualization 
photographs  did  show  a  reflection  of  the  plume  boundary  at  the  channel  walls. 
The  reflections  merged  at  approximately  x  =  2.45m  instead  of  at  2.93m  as  pre¬ 
dicted  by  the  model.  However,  the  plume  dispersion  model  with  chemical  pool 
formation  at  low  values  of  Froude  number  gives  a  representation  of  actual 
plume  behavior  that  is  approximately  correct. 

Figures  V.ll  and  V.12  show  that  the  plume  centerline  concentration  and 
the  vertical  dispersion  coefficient  (a  measure  of  plume  thickness)  are  fairly 
well  predicted  by  the  plume  model.  The  vertical  concentration  profile  data 
obtained  along  the  channel  centerline  for  Run  1.2-20  indicate  that  the  plume 
is  thinner  and  less  dilute  than  predicted  by  the  plume  model.  Figures  V.13 
and  V.14  compare  the  predicted  and  measured  cross-stream  concentration  distri¬ 
butions  at  a  height  of  0.0064m  (1/4  inch)  above  the  channel  floor  at  down¬ 
stream  distances  of  x  =  1.21m  and  x  =  3.04m,  respectively.  The  effect  of 
plume  boundary  reflection  from  the  channel  wall  is  easily  seen  in  Figure  V.13. 
In  general,  the  agreement  is  good,  although  the  plume  model  has  predicted  a 
greater  dilution  (by  a  factor  of  2)  for  the  sodium  silicate  experiment. 

Figures  V.15  to  V.19  compare  model  predictions  and  data  for  Run  1.2.4, 
a  continuous  discharge  of  ethanol  and  dye  with  s.g.  =  0.79;  the  plume  for  this 
test  runs  along  the  water  surface  rather  than  the  channel  bottom.  This  plume 
was  bifurcated  near  the  source.  Figure  V.15  shows  that  the  predicted  plume 
boundary  lies  between  the  inner  and  outer  boundaries  of  each  lobe  of  the 
bifurcated  plume.  Because  of  the  bifurcation,  the  predicted  centerline  con¬ 
centration  is  much  greater  than  the  observed  one,  as  is  shown  in  Figures 
V.16,  V.18,  and  V.19,  although  the  predicted  trend  is  accurate.  The  vertical 
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FIGURE  V. 15  PLUME  BOUNDARY  FOR  ETHANOL 
at  z  =  On  (CHANNEL  SURFACE) 
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FIGURE  V. 16  PREDICTED  AND  MEASURED  VALUES  OF  PLUME 
CENTERLINE  CONCENTRATION  FOR  ETHANOL,  s.g.  =  0.790 
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concentration  distribution  data  taken  within  the  two  lobes  of  the  plume  at 
x  =  1.21m  and  x  =  3.04m  gave  noticeably  higher  values  of  concentration  at  the 
water  surface.  However,  these  values  are  still  well  below  the  values  pre¬ 
dicted  for  the  plume  centerline. 

Figure  V.17  compares  predicted  and  measured  values  of  the  vertical 
dispersion  coefficient,  a  measure  of  plume  thickness.  The  agreement  was 
reasonably  good  at  x  -  1.21m,  but  at  x  =  3.04m  the  thickness  of  the  lobes 
(determined  from  vertical  concentration  profiles  taken  next  to  the  channel 
walls)  is  much  greater  than  the  predicted  thickness.  Figures  V.18  and 
V.19  compare  the  predicted  and  measured  cross-stream  concentration  distri¬ 
butions  at  a  depth  of  0.025m  (1  inch)  below  the  water  surface.  The  effect 
of  the  bifurcation  is  clearly  shown  in  these  figures.  The  high  values  of 
concentration  within  the  plume  lobes  at  this  depth  are  the  result  of  the 
greater  values  of  plume  thickness  indicated  in  Figure  V.17.  While  the  mea¬ 
sured  values  of  concentration  at  the  surface  (z  =  0)  are  lower  than  predicted 
(see  Figure  V.16),  the  values  at  z  =  0.025m  below  the  surface  are  higher  than 
predicted.  The  prediction  of  the  chemical  concentration  distribution  for 
this  case  involving  strong  plume  bifurcation  is  perhaps  the  least  satis¬ 
factory  of  all  the  continuous  spill  tests. 


V.2  Instantaneous  Spills  in  Steady  Rivers 

Predictions  of  the  model  are  first  compared  to  the  tests  of  a  neutrally 
buoyant  spill.  Case  II. 1-20.  (Mass  spilled  =  0.9  kg;  spill  location  z  =  d/2  = 
0.114m;  channel  velocity  =  0.141m/sec.)  Figure  V.20  shows  a  comparison  of  the 
observed  and  predicted  peak  concentrations  of  the  spill  as  a  function  of  time, 
at  a  downstream  location  of  5.36m.  The  model  agrees  well  with  the  data. 

These  predictions  correspond  to  the  near-field,  point-source  regime  in  which 
turbulent  diffusion  is  the  dilution  mechanism.  Initially,  the  model  was  based 
on  a  longitudinal  diffusion  coefficient,  ex,  that  was  equal  to  the  lateral 
coefficient  £y;  this  gave  a  time  duration  of  the  spill  that  was  too  short  at 
the  measurement  location  by  a  considerable  margin  (i.e.,  the  curve  was  too 
"peaked").  By  iteration,  it  was  found  that  ex  =  10  £y  gave  much  better 
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The  predicted  concentration  across  the  channel  depth  also  compares  well 
with  the  data,  as  shown  in  Figure  V.21.  When  £x  =  Ey  was  used  initially, 
however,  the  predicted  distribution  was  nearly  constant  over  the  depth,  which 
is  a  consequence  of  the  conservation  of  spilled  mass.  That  is,  if  the  spill 
is  too  short  in  the  longitudinal  direction,  as  it  would  be  when  Ex  =  Ey,  the 
concentration  must  average  out  as  too  high  over  the  depth  in  order  to  make  up 
the  mass  discrepancy.  Further,  Figure  IV. 27  of  Section  IV  demonstrated  photo¬ 
graphically  that  the  spill  diffuses  more  rapidly  in  the  longitudinal  direction 
than  in  the  lateral  direction.  (The  use  of  £x  =  10  £y  rather  than  £x  =  £y 
also  results  in  more  realistic  concentration  profiles  for  the  positive-  and 
negative-buoyancy  spills  that  will  be  discussed  later.  According  to  Fischer 
[5],  values  of  £x  greater  than  £y  are  to  be  expected.)  Note  that,  although 
Case  II. 1-20  is  nominally  a  neutrally-buoyant  spill,  a  slight  temperature 
difference  between  the  spilled  water -plus-dye  and  the  channel  water  resulted 
in  the  spill's  rising  to  the  surface;  this  fact  has  been  used  in  the  model 
predictions. 

Figures  V.20  and  V.21  have  been  prepared  on  the  basis  of  a  time  com¬ 
parison  rather  than  on  downstream  distance.  In  the  model,  the  predicted 
downstream  distance  corresponding  to  the  peak  concentration  is  5.36m  (211  in.), 
which  is  the  product  of  the  channel  current  and  the  time.  The  actual 
measurements  were  taken,  however,  at  4.27m  (168  in.).  Since  the  model  and  the 
data  compare  fairly  well  for  the  test  observation  time  of  38  seconds  (the 
peak  concentration  time)  it  is  concluded  that  the  difference  in  downstream 
distance  is  a  result  of  the  difficulties  in  (1)  obtaining  an  ideal  "instan¬ 
taneous"  discharge  as  well  as  in  (2)  measuring  the  current  exactly.  This 
same  kind  of  discrepancy  between  time  and  distance  appears  in  all  the  com¬ 
parisons  given  below.  For  that  reason,  the  comparisons  will  always  be  made 
on  the  basis  of  the  time  elapsed  from  when  the  spill  was  injected  into  the 
channel . 

Comparisons  are  next  made  to  a  spill  of  sodium  silicate  with  a  spe¬ 
cific  gravity  of  1.40.  (Case  II. 1.14;  mass  spilled  =  1.29  kg;  spill  location 
z  *  d/2  =  0.114  m;  channel  velocity  =  0.141  m/sec).  Because  the  spill  was 
strongly  negatively-buoyant ,  it  had  an  extended  region  of  buoyancy-induced 


mixing.  Figure  V.22  shows  a  comparison  of  the  measured  and  predicted  con¬ 
centrations  at  the  channel  centerline  as  a  function  of  time  for  a  downstream 
location  of  5.02m.  (As  discussed  above,  x  =  5.03m  corresponds  to  a  test 
time  of  36  seconds,  when  the  center  of  the  actual  cloud  was  observed,  not 
to  the  actual  measurement  location  of  4.27m.)  The  spill  bifurcated  notice¬ 
ably  after  it  impacted  the  channel  floor,  as  can  be  seen  in  the  photographs 
of  Figure  IV. 26.  For  that  reason,  the  measured  peak  concentrations  (off  the 
centerline)  are  also  shown  in  Figure  V.22.  The  predictions,  which  do  not  in¬ 
clude  any  effects  of  bifurcation,  generally  lie  between  the  centerline  and 
the  peak  data.  Since  the  model  predicts  that  the  spill  is  in  the  very-near - 
field  regime,  the  predicted  concentration  increases  abruptly  to  a  maximum 
when  the  leading  edge  of  the  "top  hat"  profile  reaches  the  measurement  loca¬ 
tion.  After  that,  the  predicted  concentration  gradually  decreases  as  a  result 
of  further  dilution  during  the  time  required  for  the  cloud  to  pass  by  the 
measurement  location.  The  actual  spill  diffuses  somewhat  both  upstream  and 
downstream,  so  the  measured  concentration  does  not  change  discontinuously . 
Nonetheless,  the  agreement  between  model  and  test  is  satisfactory. 

Figure  V.23  compares  the  predictions  of  the  concentration  across  the 
channel  width  at  t  =  26  seconds  to  the  measured  data.  The  bifurcation  of  the 
actual  spill  is  evident.  The  model  predicts  that  (1)  the  cloud  extends  com¬ 
pletely  across  the  channel,  in  agreement  with  the  data,  and  (2)  the  concen¬ 
tration  is  uniform;  altogether  the  comparison  is  reasonably  good. 

Comparisons  of  the  predicted  concentration  through  the  water  depth  at 
t  *  26  seconds  are  shown  in  Figure  V.24.  The  measured  concentration  decreases 
from  a  peak  to  practically  zero  over  the  lower  0.05m  of  the  channel,  thus  veri¬ 
fying  that  the  cloud  is  still  stratified  and  mixing  by  buoyancy,  as  the  model 
predicts.  For  the  model,  the  top-hat  profile  decreases  to  zero  over  the 
bottom  0.015m;  since  this  range  includes  nearly  all  the  mass  of  the  actual 
spill,  the  agreement  is  considered  satisfactory.  Also  shown  in  Figure  V.24 
are  comparisons  (the  dashed  lines)  of  the  predictions  of  the  very-near-f ield 
and  the  near-field  models  near  their  matching  points,  t  as  49  seconds.  The 
near-field  model  gives  a  ten-to-one  concentration  decrease  over  the  channel 
depth,  while  the  very-near-f ield  model  predicts  a  discontinuous  decrease  over 
a  more  limited  depth  range.  The  two  distributions  could  be  brought  into 
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FIGURE  V.23  CROSS-STREAM  CONCENTRATION  AT 
x  =  5.03m  (198  in.), 
z  =  0.235  (9.25  in.),  AND 
t  =  26  seconds  FOR 
SODIUM  SILICATE,  s.g.  =  1.4 


closer  agreement  by  increasing  the  number  of  point  sources  (five)  used  in  the 
near-fieJd  raoael  to  represent  the  cloud  width.  But  somewhat  further  down¬ 
stream  the  predictions  would  be  unchanged,  so  five  point  sources  are  probably 
adequate.  It  might  be  noted  that  with  =  £y  the  near-field  concentration 
was  predicted  to  be  nearly  uniform  across  the  depth  at  the  matching  point; 
this  is  an  independent  verification  that  £x  >  £y 

Figures  V.25  and  V.26  compare  the  model  to  a  spill  of  ethanol,  s.g.  = 
0.79,  which  is  strongly  positively-buoyant.  (Case  II. 1-2;  mass  spilled  = 

0.79  kg;  spill  location  z  =  d/2  =  0.114  m;  channel  velocity  =  0.141  m/sec.) 
The  spill  was  shown  pictorially  in  Figure  IV. 25.  Centerline  concentrations 
as  a  function  of  time  are  shown  in  Figure  V.25.  Again,  the  model  predicts 
that  the  measurement  location  is  in  the  very-near-f ield  regime.  The  leading 
edge  of  the  cloud  is  predicted  to  arrive  about  ten  seconds  or  so  ahead  of 
the  most  concentrated  part  of  the  actual  spill.  Further  adjustments  of  the 
empirical  constants  in  the  model,  particularly  to  the  denominator  of  the  en¬ 
trainment  correlation  (Equation  (III. 58b)),  would  decrease  this  apparent 
discrepancy  in  arrival  times,  but  doing  so  would  change  the  comparisons  of 
the  negatively-buoyant  spill  shown  in  Figure  V.22.  In  fact,  the  constants 
were  selected  to  give  the  best  overall  fit  for  all  the  tests,  rather  than 
for  either  Test  II. 1-14  or  II. 1-2  individually. 

Comparisons  of  the  predictions  across  the  channel  depth  are  shown  in 
Figure  V.26;  the  matching  of  the  very-near-f ield  and  near-field  models  is 
also  compared.  Again,  the  comparisons  are  satisfactory.  Note  that  buoyancy- 
induced  mixing  ends  considerably  sooner  for  this  spill  than  for  the  nega¬ 
tively-buoyant  spill  discussed  previously,  even  though  both  spills  had  the 
same  volume. 

The  spill  of  a  weakly  negatively-buoyant  chemical,  s.g.  =  1.05,  is 
shown  in  Figures  V.27  and  V.28.  (Case  II.1-8B;  spilled  mass  =  0.95  kg; 
spill  location  z  -  d/2  =  0.114m;  channel  velocity  =  0.141  m/sec.)  The 

spilled  volume  is  identical  to  the  three  cases  discussed  above.  Buoyancy- 
induced  mixing  is  predicted  to  end  after  about  15  seconds,  and  the  test 
measurements  thus  are  predicted  to  correspond  to  the  turbulent-diffusion, 
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FIGURE  V.25  CONCENTRATION  VS.  TIME  AT 
x  =  3.57m  (140  in.)  AND 
z  =  0.0064m  (0.016  in.) 
FOR  ETHANOL,  s.g.  =  0.79 
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FIGURE  V . 27  CONCENTRATION  VS.  TIME  AT 
x  =  7.08m  (278  in.)  AND 
z  =  0.235m  (9.25  in.)  FOR 
SUGAR  WATER,  s.g.  =  1.05 
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FIGURE  V. 28  CONCENTRATION  VS.  DEPTH  AT 

x  •  7.08m  (278  In.),  z  =  0.235m  (9.25  in.) 
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near-field  regime,  in  contrast  to  the  other  two  buoyant  spills  discussed 
above.  As  can  be  seen  in  the  data  of  Figure  V.27,  the  measured  concentra¬ 
tions  do  rise  and  fall  more  gradually  than  for  the  previous  cases  and  there¬ 
fore  indicate  that  diffusion  is,  in  fact,  an  important  dilution  mechanism. 

The  near -field  model  is  in  reasonably  good  agreement  with  the  data,  although 
the  total  duration  of  the  affected  region  is  underestimated  somewhat. 

Figure  V.28  gives  comparisons  of  the  concentration  across  the  channel  depth. 
It  is  evident  that  the  test  cloud  has  diffused  significantly  throughout  the 
depth,  which  constitutes  another  confirmation  of  the  model;  the  model  pre¬ 
dictions  themselves  also  agree  well  with  the  data.  Further,  these  near-field 
predictions  depend  implicitly  on  the  very-near-f ield  model.  Thus,  if  the 
very-near-f ield  dilution  or  time  duration  had  been  predicted  poorly,  the 
near-field  model  would  not  agree  as  well  as  it  does  with  the  test  data. 

Comparisons  of  other  tests  and  the  models  are,  in  general,  about  as 
close  as  the  four  typical  cases  discussed  above. 


VI.  CONCLUSIONS 
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The  mixing,  dilution,  and  evaporation  models  for  water  soluble  chem¬ 
icals  previously  developed  by  others  for  the  Hazard  Assessment  Computer 
System  (RACS)  have  been  completely  reformulated.  The  revised  models  now 
cover  nearly  every  practical  combination  of  spill  density,  spilling  rate, 
total  mass  spilled,  and  type  of  waterway.  In  summary,  there  are  now  four 
models  that  can  be  used  to  assess  the  chemical  concentration  in  the  water 
from  an  accidental  tank  rupture: 

1.  A  continuous  spill  in  a  steady  river. 

2.  An  instantaneous  spill  in  a  steady  or  a  tidal  river. 

3.  A  continuous  spill  in  a  tidal  river. 

4.  A  continuous  spill  in  an  estuary  or  other  coastal  waters. 

Only  the  first  three  models  have  been  developed  in  detail  as  part  of  this  pro¬ 
gram;  the  fourth  model  is  already  available  as  the  "Dynamic  Estuary  Model." 

Most  of  the  program  efforts  were  devoted  to  formulating  better  methods 
of  predicting  the  chemical  concentrations  near  the  spill  site,  where  the  hazards 
are  greatest.  The  previous  HACS  models  used  to  compute  these  close-in  con¬ 
centrations,  which  were  crude  and  unrealistic,  would  not  have  agreed  with 
test  data  within  an  order  of  magnitude.  Farther  downstream  from  the  spill 
site,  in  the  "intermediate"  and  "far"  fields,  the  new  models  and  the  previous 
ones  are  similar  in  form;  the  errors  in  the  previous  models  have  been  cor¬ 
rected  ,  however ,  and  techniques  have  been  developed  to  insure  that  the  chemical 
concentration  varies  continuously  rather  than  discontinuously  when  it  is  neces¬ 
sary  to  switch  from  a  model  appropriate  to  one  dominant  form  of  dilution  to 
another. 

For  the  first  model,  a  continuous  spill  in  a  steady  river,  the  mixing 
and  dilution  predictions  now  include: 

o  the  effects  of  the  momentum  and  buoyancy  of  the  chemical  stream 
discharged  from  the  punctured  tank  on  the  trajectory  and  dilution 
(entrainment  of  water)  of  the  chemical  plume; 
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o  the  buoyancy-induced  cross-stream  spreading  of  the  plume  after 
it  reaches  either  the  upper  or  lower  surface  of  the  river; 

o  the  effect  of  density  stratification  between  the  plume  and  the 
water  on  the  rate  of  entrainment; 

o  a  more  accurate  accounting  of  the  waterway  boundaries  on  the 
dilution  processes;  and 

o  evaporation  of  chemical  vapor  from  a  plume  at  the  water  surface. 

The  model  is  based  partially  on  previous  work  related  to  heavy-gas  plumes  near 
the  surface  of  the  ground. 

The  model  of  an  instantaneous  spill  in  a  steady  or  tidal  river  now 
includes : 

o  the  buoyancy-induced  spreading  and  dilution  of  the  spilled  volume 
after  it  reaches  the  upper  or  lower  surface  of  the  river; 

o  the  effect  of  density  stratification  between  the  cloud  of  chem¬ 
ical  and  the  water  on  the  rate  of  entrainment; 

o  a  more  accurate  accounting  of  the  waterway  boundaries  on  the 
dilution  processes; 

o  evaporation  of  vapor  from  a  chemical  cloud  at  the  water  surface; 
and 

o  the  transient  effects  of  a  tidal  flow  on  all  the  important  dilu¬ 
tion  mechanisms. 

The  prediction  methods  are  based  partially  on  previous  well-verified  models  of  the 
dilution  of  heavy-gas  clouds  near  the  surface  of  the  ground. 

The  third  model,  a  continuous  spill  in  a  tidal  river,  includes  many  of 
the  effects  listed  above  for  a  spill  in  a  steady  river.  However,  because  of 
analytical  difficulties,  buoyancy-induced  cross-stream  spreading  in  a  transient 
flow  could  not  be  included;  thus,  this  model  does  not  predict  the  close-in  con¬ 
centrations  of  buoyant  chemicals  as  well  as  the  steady-river  model  does.  The 
model  does  include  the  effects  of  the  tidal  current  on  all  the  other  dilution 
mechanisms,  as  well  as  the  possibility  that  the  river  water  may  pass  back-and- 
forth  through  the  spill  site  several  times. 


The  predictions  of  the  continuous  and  instantaneous  spill  models  for 
a  steady  river,  in  the  close-in  or  near-field  range,  were  compared  to  scale- 
model  tests  conducted  over  a  wide  range  of  discharge  rates  and  volumes, 
river  speeds,  and  chemical  densities.  (Lack  of  a  suitable  test  facility  pre¬ 
vented  a  verification  of  the  tidal  river  models.)  Part  of  the  test  data  was 
used  to  determine  "best"  values  of  the  empirical  constants  in  the  models. 

The  remaining  tests  were  then  used  to  verify  the  revised  models.  In  all 
cases,  a  generally  close  comparison  of  the  model  predictions  and  the  test 
results  was  found. 

It  is  concluded,  then,  that  the  revised  mixing  and  dilution  models 
for  water  soluble  chemicals  are  now  suitable  for  inclusion  in  the  Hazard 
Assessment  Computer  System. 
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The  computing  equations  given  for  the  near-,  intermediate-,  and  far- 
field  concentrations  for  observation  times  after  the  spill  has  ceased  can  be 
derived  by  integrating  the  effects  of  a  stream  of  corresponding  instantaneous 
spills.  For  example,  the  near-field  concentration  is: 


C(x 


f6f 

,y,z,t)  =  J  C 


-[x-u(t-T)]2/ 4£x(t-T)‘") 

MdTe  lx 


[47r(t-T)]^2  (exey£z)1/2 


5 

exp  j^-(y-yn) 1  / 4£y(t-T)  -  (z-zn)  / 4£z(t-T)J  (A.l) 

n=l 


Here,  the  strength  of  the  instantaneous  spill  is  MdT  and  T  is  the  time 
at  which  each  spill  is  inserted  into  the  water.  Equation  (A.l)  can  be 
integrated  in  terms  of  error  functions  by  making  the  substitutions 

1/2 
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This  gives: 
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The  integration  gives  Equation  (III. 44)  of  Section  III. 2. 5.  Incidentally, 
if  te  -*■  00  the  steady-stage  solution.  Equation  (III. 27)  of  Section 
III. 2. 4,  is  obtained;  the  same  result  is  also  obtained  for  finite  te  if 
€y.  is  small  and  x  <  ut  £  utg  (i.e. ,  the  observation  point  is  within  the 
spill  and  the  spill  has  not  yet  ceased). 

Equation  (III. 45)  for  the  intermediate  field  is  obtained  by  integrating 
a  stream  of  instantaneous  line  sources: 
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The  necessary  substitutions  are 


C  =  (t-t) 


(A. 5a) 


u^2  =  m27T2  ey/w2 


(A. 5b) 


Equation  (III. 48)  for  the  far-field  can  be  found  similarly: 
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FURTHER  DETAILS  OF  INSTANTANEOUS  SPILL 
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B.  1  Evaporation  Model 

Evaporation  from  the  very-near-field  region  of  lighter-than-water 
chemical  spills  is  computed  by  the  model  suggested  by  Mackay  and  Yuen  [20] : 

^  =  HC  (B.l) 

dt 

Here,  me  is  the  evaporated  mass  per  unit  area  of  surface  and  H  is  an 
evaporation  mass  transfer  coefficient.  Equation  (B.l)  assumes  that  concen¬ 
tration  of  chemical  in  the  air  is  negligible. 

H  is  equal  to  1/R/p,  where  R-j  is  the  total  resistance  to  evapora¬ 
tion,  a  combination  of  Rj_,  the  resistance  to  diffusion  from  the  chemical 
in  the  river  to  the  near  surface  water,  R2,  the  resistance  to  diffusion 
through  the  near  surface  liquid  to  the  interface,  and  R3,  the  resistance 
to  diffusion  of  chemical  through  the  layer  of  air  close  to  the  water  surface. 
R3  is  negligibly  small  for  a  highly  concentrated  cloud  at  the  surface.  R2 
varies  somewhat  with  each  specific  case,  but  [20]  recommends  a  typical  value 
of  2.5  x  104  sec/meter.  R3  depends  on  both  an  air -water  mass  transfer 
coefficient,  which  for  typical  conditions  is  estimated  to  0.01/meter/sec, 
and  the  equilibrium  value  of  the  concentration  at  the  air -water  interface; 
the  total  recommended  value  of  R3  is  2.4 / /^  sec/meter,  where  is  Henry's 
constant  in  units  of  atm-m^/mole.  For  highly  soluble  chemicals,  is  of  the 
order  of  10--*.  Altogether,  then,  the  evaporation  mass  transfer  coefficient 
is  typically: 

H  «  [2.5  x  104  +  2.4  x  105]"1  =  3.8  x  10~5  m/sec  (B.2) 

Because  of  the  small  value  of  for  the  chemicals  of  interest  to  the  Coast 

Guard,  the  predicted  evaporation  rate  will  also  be  small  ordinarily.  It 
might  be  neglected,  then,  with  little  loss  of  accuracy. 


B.2  Tidal  Effects  of  ev  and  the  Intermediate  Field 

The  very-near-f ield  dilution  is  too  rapid  to  be  affected  by  the  tides. 

In  the  near-field,  the  dilution  is  caused  by  turbulent  diffusion,  and  this  too 
is  unaffected  by  the  tidal  flow  if  the  diffusion  coefficients  are  computed 
on  the  basis  of  an  appropriate  shear  velocity.  In  the  intermediate-field, 
longitudinal  dispersion  is,  however,  affected  by  the  tidal  flow;  it  will  be 
shown  below  that  both  the  dispersion  coefficient  and  the  form  of  the  governing 
equation  for  dispersion  must  account  for  time-varying  effects. 

When  the  current  has  a  velocity  gradient  and  the  concentration  is  fairly 
uniform  across  the  depth  (i.e.,  the  intermediate-field),  the  chemical  attempts 
to  spread  downstream  at  varying  speeds  across  the  depth.  Diffusion,  however, 
attempts  to  keep  the  concentration  uniform  across  the  depth.  The  net  effect 
is  a  more  rapid  mixing  by  "dispersion"  than  by  diffusion  alone.  As  shown  in 
[5],  the  general  formula  for  the  dispersion  coefficient  is 

d  z  z 

ex  =  J  (u-u)  J"  J"  (u-u)  dz  dz  dz  (B.3) 

o  oo 

where  u  is  the  depth-averaged  velocity;  u-u  is,  thus,  the  velocity  varia¬ 
tion  due  to  both  the  gradient  and  turbulent  fluctuations.  The  concentration 
variation,  C-C,  is  given  from  the  solution  of  the  mass  transfer  balance 
[5]  as: 


_  z  z 

c  -  °  “  t;  (H)  J  J  (u-«) dz  dz 

o  o 


+  (C-C) 

z  =  0 

Equations  (B.3)  and  (B.4)  can  be  combined  to  give: 


d 

ex  =  -  [d(9C/9x)]  ^  J*  (u-u)  (C-C)  dz 

o 


(B.4) 


(B.5) 


B-2 


In  order  to  evaluate  Equation  (B.5),  a  linear  velocity  gradient  is  assumed 
temporarily  for  the  steady  and  the  time-averaging  parts  of  the  tidal  current. 
Equation  (B.4)  is  used  to  determine  the  functional  relation  of  C-C,  which 
is  then  inserted  in  Equation  (B.5)  and  integrated  to  give: 
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Here  T  =  (Td2/ez)  [tt2/4  +  (Td2/ez)2]  and  0,  is  defined  by  Equation  (111.70) 

A  number  of  small  higher-order  terms  have  been  neglected  in  Equation  (B.6).  In 
a  river,  the  velocity  gradient  is  not  linear  and  there  are  also  turbulent  fluc¬ 
tuations.  For  a  steady  river,  the  use  of  the  correct  velocity  profile  would 
presumably  give  5.93  du^,  the  empirical  correlation,  instead  of 
(u0-u0)2  d2/120  ez  in  Equation  (B.6)  for  the  time-independent  part.  Assuming 
the  tidal  velocity  profile  and  turbulence  level  are  the  same  as  the  steady  com¬ 
ponent,  (u^-u^)2  d2/120  ez  should  also  be  replaced  by  5.93  du^.  By  making 
these  substitutions  and  separating  the  constant  and  time-dependent  parts  of 
Equation  (B.6),  the  expressions  for  and  et  given  as  Equations  (III. 68) 

and  (III. 69)  can  be  derived. 

The  intermediate-field  concentration  is  determined  by  the  balance  be¬ 
tween  mass  storage,  diffusion,  and  dispersion  [5]: 


A  solution  of  Equation  (8.10b)  that  satisfies  all  the  initial  and 
boundary  conditions  for  C  -  CD  is: 


-  =  I  (9Co\ 
' 1  2  V  9;  / 


+  (j>1 


(B.12) 


Here,  (J)^  is  a  correction  term  that  is  the  solution  of  a  differential  equation 
derived  by  substituting  Equation  (B.12)  into  (B.lOb)  and  collecting  terms. 

This  "correction"  differential  equation  is  of  the  same  form  as  Equation  (A. 10b) 
but  the  ex(3^  C0/9  X?- )  on  the  right  is  replaced  by  -X,  et  (9  C0/9C)/2  et. 

Now,  et  X,  (9  C0/9C)/2  e^  is  much  smaller  in  magnitude  than  ex(9^  c0/9C^)  as 
a  direct  comparison  will  show.  Because  of  this  much  reduced  "forcing"  term, 
the  magnitude  of  (j)^  is  much  smaller  than  C^;  in  fact,  both  <J>^  and 
approach  zero  for  X,  =  o  and  X,  — ►  °°,  and  are  therefore  both  smaller  than 
CQ.  Neglecting  all  higher  approximations  in  Equation  (B.9),  the  line-source 
solution  for  a  tidal  river  is: 


c  =  c„  [i  -  C  (-£0/2  C„] 

-  c0  [l  +  (^2/4ext)(et/ex)] 

This  is  Equation  (III. 67)  when  the  images  are  added. 


(B.13) 


A.  3  Tidal  Effects  of  Ey  and  the  Far-Field 

The  same  kind  of  analysis  performed  for  e^^  shows  that  Ex  and  Et, 
the  far-field  dispersion  coefficients,  depend  on  the  tidal  component  in  exactly 
the  same  way  as  e^j  and  et. 


The  far-field  model  for  a  steady  river  is 

CQ  (x,t)  =  - -  exp  (-£2/4Ext)  (B.14) 

L(4lTExt)  2  wd  J 

It  can  be  derived  from  Equation  (B.ll)  by  replacing  ex  with  Ex  and  by 
realizing  that  the  minimum  time  for  the  validity  of  the  far-field  model  is 
such  that  exp  [  — tt^  Eyt/w^]  as  0.  The  tidal  river  form  follows  from  Equa¬ 
tion  (B.13). 


B-5 
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C.l  Deviation  of  Near -Field  Model 

As  stated  in  Section  III. 4. 2,  the  near-field  model  for  a  continuous 

spill  is  derived  by  integrating  the  effects  of  a  stream  of  instantaneous  point 

» 

sources,  each  of  strength  Mdt.  That  is: 


C(x,y,z,t) 


JMdx  exp  (-(x  -  ut) 2/4ex  (t-x)] 
[4ir/(t-T)]^2  (exeyez)1/2 
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exp  ^-(y-yn)2/4ey(t-T)  -  (z-zn) 2/4et(t-x)J  (C.l) 

n=l 

t 

Here,  ut  =  /  u*dt;  x,  the  time  at  which  the  instantaneous  source  enters 
the  water,  T  varies  from  0  to  t,  where  t  is  the  observation  time,  which 

does  not  vary  in  the  integration;  and  the  (t-x)  terms  account  for  the  fact 
that  the  sources  do  not  all  act  from  t  =  0. 


Equation  (B.l)  cannot  be  integrated  exactly,  because  of  the  time-varying 

part  of  u.  For  a  steady  river,  the  integration  is  possible,  and  the  result 

does  not  depend  on  see,  for  example.  Equation  (III. 27).  The  lack  of  a 

dependency  on  is  because  backward  and  forward  longitudinal  diffusion 

exactly  cancel.  The  cancellation  will  also  occur  approximately  for  a  tidal 

river  unless  is  very  large  or  the  river  speed  is  very  small.  Put  another 

way,  the  integrand  in  Equation  (C.l)  will  make  a  contribution  to  the  total 

concentration  only  for  those  values  of  x  and  t  such  that  (x-ut)^  is 

less  than  4  (t-x).  Since  for  a  steady  river,  the  result  is  independent 

of  e^,  it  is  legitimate  to  take  the  limit  ex  -►  0  ;  in  that  case,  the 

_  £ 

integrand  is  zero  unless  x  -  ut  =  0  identically.  (The  answer  when  is 

not  negligible  will  be  derived  later.)  Consequently,  only  the  point  sources 


The  same  result  for  a  steady  river  is  obtained,  in  fact,  by  exact  integra¬ 
tion  or  by  taking  the  limit  -*  0. 


that  are  inserted  at  certain  times  Tj  will  add  up  to  give  a  net  contribution 
at  the  observation  point  x  at  the  observation  time  t;  these  times  are  the 


roots  of 


x  dx  =  0 


(C.2a) 


This  is  Equation  (III. 76).  By  making  the  transformation  £("0  =  x-uF,  it  can 
be  seen  that  d£  ■  u(x)  *  dx  =  uT*dx,  where  uT  is  the  value  of  u  for  t  =  x. 
Further,  by  defining  a  time-average  velocity  as 


u  =  [/  uxdxj  j (t-x), 


(C.2b) 


the  observation  point  can  be  expressed  as  x  *  u  (t-Xj). 

Finally,  according  to  the  argument  given  above,  the  integrand  is  non¬ 
zero  only  for  a  vanishing  small  range  around  £  =  0  for  each  of  the  Xj  ; 
that  is,  the  integral  needs  to  be  considered  only  for: 


Xj  -  (3/2  uTj)  <  X  <  Xj  +  (3/2  uTJ 


(C.3) 


for  all  the  X j ,  this  range  corresponds  to  -6/2  <  £  <  6/2  since  £  =  0  for 
X  *  X j .  Hence,  Equation  (C.l)  becomes: 
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The  limit  ^  »  0  must  be  taken  before  5 


(Since  6  is  small. 


the  variation  of  u  and  uT  with  T  is  neglected  in  Equation  (C.4),  and 
they  have  been  replaced  by  their  values  uj  and  uTj  at  t  =  t j . )  The  only 
part  of  Equation  (C.4)  that  varies  with  X,  is  the  first  exponential  func¬ 
tion,  and  its  integral  is: 
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As  0,  the  value  of  the  error  function  is  +1,  depending  on  whether 

2>  >  0.  Since  <? >  0  when  uTj  >0,  and  vice  versa,  the  value  of  +1  can  always  be 


assumed,  if  the  absolute  value  of 
Equations  (C.4)  and  (C.5)  gives: 


uTj  is  used  in  Equation  (C.4).  Combining 


C(x,y,z,t)  - 


m  r 

2 

j-i 


Muh 


4ttx  (eyez)^2|uT 


j 


^  exp  j^-(y-yn)2  Uj/4xey  -  (z-zn)2  Uj/4xexJ 


) 


n=l 


(C.6) 


This  is  Equation  (III. 75). 


The  result  for  the  case  when  uT^  is  so  small  that  longitudinal  dis¬ 
persion  is  not  negligible  will  be  derived  now.  Since  uT^  as  0,  the  trans¬ 


formation  C  =  x  -  ut  gives  d£  =  uT  dx  «  0  for  uT 


ux 


j 


0.  It  is  thus 

J  — *►  0, 

since  the  entire  integrand  is  singular  for  that  case.  Instead,  a  definite 
value  of  6  will  be  determined.  First,  a  proper  value  of  A£  as  d£  will 


not  legitimate  to  replace  uT  by  ux^  in  the  integrand  with 


be  found.  Be  definition: 


Since  u  =  uT^  =  0  and  Sj  =  0  for  x  =  t j ,  Equation  (C.7)  can  be 
expanded  to  give: 


As  =  —■  (Ax)2  £cos  (Xj  +  a)  +  2^TAT  sin  -2^  (xj  +  a)  +  . .  .J  (C.8) 


Unless  the  cosine  terra  is  identically  zero,  the  AS  change  for  a  Ax  change 
in  X  around  x  =  Xj  is  therefore: 


AS 


2xr 

cos  — 


(Tj 


(C.  9) 


The  integration  variable  will  now  be  taken  as  Ax,  which  will  vary  over 
+  6/2.  The  variable  S  =  Cj  +  AS  =  AS  is  related  to  Ax  by  Equation  (C.9). 
The  integral  is,  therefore. 


C(x 


M  6/2 

,y,z,t)  =  )  -  v. 

j=l  -6/2  (4ttx/uj)  (EjjEyej.) 


Md  (Ax) 


exp 


|j-tt2u12  Uj  |cos  -y-  (Xj  +  a) J  2  (Ax)4  4xexT2^ 


5 

Yexp  [-(y-yn)2  Uj/4eyx  -  (z-zn)2  Uj/4ezxj 


(C.10) 


Once  again,  the  variation  of  u  over  the  small  At  range  has  been  neg¬ 
lected,  so  u  has  been  replaced  by  its  value  uTj  at  T  =  Tj .  A  value 
for  6  can  be  determined  by  noting  that  the  exponential  term  rapidly  goes 
to  zero  as  At  increases  from  zero.  In  fact,  exp  (-7)  ^  0.001,  so  little 
is  lost  in  the  way  of  accuracy  if  the  maximum  value  of  At  =  6/2  over  which 
the  integration  is  taken  is  chosen  as: 


tt2ui  uj  [cos  —■  (Tj+ct)]2  (6/2) 1 
4x  ex  T2 


=  7 


(C.ll) 


Finally,  since  exp  (-v)  =  1  -  v  +  v^/v  -  ...»  the  integral  can  be  evaluated 
for  this  value  of  At  to  give: 


M 


C(x,y,z,t)  =  ^ 


2 . 6  MT  u j 


=1  (4Tr)1/2(4Treye2)1/2  x  5/4  u1'/2  [cos  2tt/T  (Tj+a)] 


xn 


X  ^exp  [W  **  j  ^  ^xey  “  (z~zvi)  2  Uj/4xezJ 


(C. 12) 


n=l 


2tt 


When  cos  —  (Tj+a)  =  0,  Equation  (C.8)  shows  that 


2  r*Zui  2t r  i 

^-JL sinf  (Tj+a)J(AT)' 


(C . 13) 


Following  through  the  same  steps  again  shows  that  the  leading  term  in  Equa¬ 
tion  (C.12)  is  now 


The  derivation  of  these  models  follows  exactly  the  same  procedure  as 
for  the  near -field  model.  Instead  of  using  point-source  solutions  to  form 
the  integral,  however,  line-source  and  far-field  instantaneous  colutions  are 
used.  Note  that  only  the  "steady-river"  term,  as  defined  in  Appendix  A,  make 
a  contribution,  since  £  =  x-ut"  =0  in  the  integrals,  so  the  correction 
terms  for  the  unsteady  part  disappear. 


FIGURE  D.l  FLOW  CHART  FOR  PROGRAM  "SPILL" 


End 


SUBROUTINE  "JET" 


Transforms  the  initial  tophat  velocity  profile  of  a  continuous 
discharge  to  the  Gaussian  form  needed  by  Ooms'  model.  Com¬ 
putes  the  deflection  of  the  jet  by  the  river  during  this  period, 
a  new  jet  diameter  (because  of  the  altered  velocity  profile), 
and  the  new  virtual  origin  of  the  jet.  (Uses  empirical  data 
from  Kamotani  and  Greber  to  make  the  calculations.)  Called  by 

TIDAL  and  STEADY 


SUBROUTINE  "COEF" 


Calculates  ex,  ey,  e2,  ex,  and  Ex  for  a  steady  river  and 

the  time  average  part  of  ex  and  Ex  for  a  tidal  river. 
Assumes  that  the  roughness^actor  is  0.009  (m)1/6  for  a  labora¬ 
tory  channel  and  0.025  (m)I/6  for  a  river.  Called  by 

TIDAL  and  STEADY 


Read  in  data  from  file  SPILLIN.DAT 


Print  headings  and  values  of  parameters  and  initial  conditions 


Initialize  variables  and  assign  values  to  constants 


If  H.LE.0.01,  set  H  =  0.2  *  DIAJET/100 


Calculate 

River  Hydraulic  Characteristics 

RH 

= 

hydraulic  radius 

UST 

= 

shear  velocity 

EZNF 

= 

vertical  dispersion  coefficient  in  near  field 

EYNF 

= 

cross -stream  dispersion  coefficient  in  near  field 

EXNF 

= 

longitudinal  dispersion  coefficient  in  near  field 

EYIF 

= 

cross-stream  dispersion  coefficient  in  intermediate 
field 

EXIF 

= 

longitudinal  dispersion  coefficient  in  intermediate 
field 

EXFF 

= 

longitudinal  dispersion  coefficient  in  far  field 

ZR 

= 

characteristic  roughness  for  log  velocity  profile 

AF 

= 

exponent  for  power  law  velocity  profile 

Calculate  river  speed  at  plume  discharge  height 


Call  subroutine  JET  to  calculate  initial  conditions  for  Ooms' 
plume  model  integration 


Calculate  the  development  of  a  bent  over  plume  with  Ooms'  model 
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Reset:  DISTA  =  DISTA  +  DISTAN 


Initialize  step  counter  and  first  row  of  Y  matrix  in 
preparation  for  integration  of  Colenbrander's  plume 
model  equations 


Is  Count. LE. 3  ? 


Call  RUNGE  to  integrate 
plume  model  equations 


Call  RHS2  to  calculate  the 
righthand  sides  of  the  dif¬ 
ferential  equations  for  the 
next  integration  step 


Count  =  Count  +  1 


Is  IAG.EQ.l  and  X.GT.XOBS 


Go  to  350  and  print  concen¬ 
tration  values 


Is  IAG.EQ.l  and  X.LT.XOBS 


Go  to  223  and  continue 
integration 


Is  X.LT.DISTA  ? 


Print  value  of  plume  centerline 
concentration,  dispersion  coef¬ 
ficients  and  width 


Reset:  DISTA  =  DISTA  +  DISTAN 


Is  SZ.GE.  0.5  *  DC  ? 


Go  to  270  and  use  the 
intermediate  field  model 


Call  HAMING  to  integrate  the  plume 
model  equations 


Call  RHS2  to  calculate  the  righthand 
sides  of  the  differential  equations 
for  the  next  integration  step 


Count  =  Count  +  1 


Is  B.LE.O  ? 


Return  to  top  of  loop 


Use  a  simplified  set  of  plume 
model  equations 


Calculate  virtual  origin  for  Sy, 
Reset  Count  =  0,  and  neglect  further 
gravity  spreading  of  the  chemical 
plume 


Is  Count. LE. 3  ? 


all  RUNGE  to  integrate  differ¬ 
ential  equation  for  Sz 


Compute  righthand  side  for 
RUNGE 


Count  =  Count  +  1 


Is  IAG.EQ.0  and  X.LT.DISTA  ? 


270 


273 


300 


301 


302 
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Set  IAG  =  1  to  prepare  for  computation 
of  concentration  at  user  specified 
locations 


Print  downstream  distance  values  for  conversion  from 
very  near  field  to  near  field,  intermediate  and 
far  field  models 


Go  to  417  for  input  of  observation 
coordinates  by  used 


Compute  value  of  concentration  at  user  specified 
coordinates  using  Ooms  very  near  field  model 


Go  to  407  for  input  of  next  set  of 
observation  coordinated  by  user 


Compute  value  of  concentration  at  user  specified 
coordinates  using  the  near  field  point  source  model 


Go  to  407  for  input  of  next  set  of 
observation  coordinates  by  user 


Compute  value  of  concentration  at  user  specified 
coordinates  using  the  Colenbrander  very  near 
field  model 


Go  to  407  for  input  of  next  set  of 
observation  coordinates 


Compute  value  of  concentration  at  user  specified 
coordinates  sing  the  intermediate  field  line 
source  model 


Increment  time  counter,  T 
TIMEE  =  TIMEE  +  TIMINC 
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FIGURE  D.3  FLOW  CHART  FOR  PROGRAM  "TIDAL 


Read  in  data  from  file  TIDEIN.DAT  and  print  out.  Default  values  for 
Ooms'  model  integration  and  print  steps  can  be  used  by  inputing 
K4  =  2.  Default  values  of  turbulent  diffusivity  coefficients  and 
roughness  factor  can  be  used  by  inputing  K5  =  2. 


- - - - - - — - - 

Divide  tidal  period  into  6  segments  and  calculate  the  average  river 

velocity,  TRD(J,1),  for  each  segment. 
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microcopy  resolution  test  chart 

national  BUREAU  OF  STANDARDS-1963-A 


Match  near  field  and  intermediate  field  models 


Calculate  depth-average  concentration  TRD(J,6)  of  point  source 
model  at  x  =  TRD(J,5).  Depth  is  broken  into  100  increments  and 
numerical  integration  is  used. 


50  Match  intermediate  field.  First  guess  of  matching  length  is  XXLS. 
5  The  intermediate  field  concentration  at  x  =  XXLS  is  Cl  1  IF . 


If  RAINF  =  Cl  1 IF/TRD ( J ,6 )  is  less  than  one,  XXLS  is  decreased  by 
XLSINC.  If  it  is  greater  than  one,  XXLS  is  increased  by  XLSINC. 


Matching  is  complete  when  0.99  <  RAINF  <  1.01.  Virtual  origin  of 
intermediate  field  model  is  calculated  as  XXLS  -  TRD(J,5)  + 
TRD(J,4)  =  TRD(J ,7) . 


Definition  of  TRD(J,5)  is  changed  so  that  maximum  near  field  length 
is  measured  from  x  =  0  rather  than  from  virtual  origin. 


All  models  have  been  matched 


Input  block  to  allow  user  to  input  observation  points  from  the  term¬ 
inal  for  the  original  time  span.  (Block  can  be  eliminated  by  in¬ 
serting  C  in  column  1  of  each  line. 


Determine  which  tidal  segment  corresponds  to  observation  time  TIMEE. 
IAG  is  the  total  number  of  tidal  periods  <  TIMEE.  IKM,  1  to  6,  is 
the  number  of  the  tidal  segment  (after  IAQ  tides)  in  which  TIMEE 
lies.  IKM  is  needed  later  (statement  158)  to  choose  the  correct 
very  near  field  model  when  the  observation  point  is  in  the  very  near 
field. 


Block  of  statements  that  determine  the  times  TJ(NRTJ)  at  which  the 
water  at  x  =  X0BS  when  time  =  TIMEE  was  at  x  =  0.  The  number  of 
such  occurrences  =  NRTJ.  These  times  are  the  roots  of  the  equation 
x  =  S u  dt,  where  the  limits  on  the  integral  are  TIMEE  and  . 
TJ(NRTJ) . 


I 


Determine  if  the  observation  point  is  within  the  spill, 
is  upstream  edge  <  XOBS  <  downstream  edge  ? 
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IV. 


N 


e 


627 

634 


631 


620 


175 


(Cont'd) 
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FIGURE  D.4  FLOW  CHART  FOR  PROGRAM  "INSTANT 


Read  in  data  from  file  INSTIN.DAT  and  print  data.  Default  values 
for  the  numerical  integration  time-step,  H,  and/or  the  group  of 
turbulent  diffusivity  coefficients  and  channel  roughness  can  be 
used  by  inputing  K1  =  2  and  K2  =  2. 


Calculate  hydraulic  radius  =  RH,  and  shear  velocity  =  UPRI,  for 
steady  or  tidal  rivers  Calculate  turbulent  diffusivities 
ex  =  EXCO,  Cy  =  EYCO,  and  zz  =  EZCO.  Calculate  time-average 
dispersion  coefficients,  ex  =  EEX  (steady  river)  or  ex  =  EXAVE 
(tidal  river),  and  Ex  =  UEEX  (steady)  or  Ex  =  UEXAVE  (Tidal). 


Is  h0  <  d  and  dr0/dt  >3.7  u*  ?  (If  so,  the  spill  "fits"  into 
the  river  and  will  spread  by  gravity.) 


Standard  Case.  Go  to  120 


Neutral  Buoyancy.  Go  to  115 


Spill  is  too  large  to  be  instan¬ 
taneous.  Print  out  580  and  stop 


Is  hn  <  d  ? 


Set  h0  =  d  and  recompute 
rQ.  Is  rQ  <  w/4  ? 


Recompute  dr0/dt. 

Is  drQ/dt  >.3.7  u*  ? 


Standard  Case.  Go  to  120 


Neutral  Buoyancy.  Go  to  115 


M 


3] 


Neutral  Buoyancy  Case.  Is  pc  >  p 


Spill  rises.  Set  BLOC  =  0 


There  is  no  very  near  field  (gravity  spreading  phase).  Set 
initial  concentration  of  near  field  =  pc  (CCPRI)  and 
initial  near  field  time  =  0  (TMVNF).  Set  ICASE  =  2  so 
that  only  one  point  source  will  be  used. 


Standard  Case.  Is  pc  >  p  ? 


Set ICASE  =  1 (5  point  sources) and  go  to  21  for  matching  o 
various  fields. 


Cont  d. 


Ill 


II 


250 


293 


DO 

1000 


1000 
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Function  RNEAR 


Calculates  concentration  for  a  set  of  point  sources,  each 
having  4  images,  at  a  given  time,  cross-stream  location, 
downstream  location,  and  depth.  If  the  spill  is  neutrally 
buoyant  only  one  point  source  is  used,  otherwise  5  are  used. 
If  spill  is  positively  buoyant,  spilled  mass  is  reduced  by 
evaporated  mass. 


Function  RMEDI 


Calculates  concentration  for  a  given  set  of  vertical  line 
sources,  at  a  given  time,  cross-stream  and  downstream 
location.  If  the  spill  is  neutrally  buoyant,  one  line 
source  is  used,  otherwise  5  are  used.  If  spill  is  posi¬ 
tively  buoyant,  spilled  mass  is  reduced  by  evaporated  mass. 


Calculates  conce 
location  when  cli 
cross-section. 

Function  FAR 

intration  at  a  given  time  and  downstream 
lemical  is  distributed  uniformly  over 

Function  AVENF 

Calculates  average  value  of  RNEAR  over  the  river  depth 
for  a  given  time,  cross-stream  and  downstream  location. 

Function  AVEIF 

Calculates  average  value  of  RMEDI  for  a  given  time  and 
downstream  location. 

Calculates  value 

Function  VELOC 

i  of  J  (river  speed  *  dt 

0 

Function  ERRF 

Calculated  value  of  error  function. 


|  Function  FACT  J 

Calculates  time-varying  part  of  dispersion  coefficient 
for  intermediate  and  far  fields  in  a  tidal  river. 


FIGURE  0.5  FLOW  CHART  FOR  PROGRAM  "OOMS" 


The  function  of  this  program  is  to  provide  four  subroutines  needed  to 
calculate  the  mixing  and  dilution  of  bent-over  plumes  in  a  turbulent  flowing 
stream  by  Ooms'  method.  The  subroutines  are  HAMING,  RUNGE,  SIMUL  and  RHS. 


|  Subroutine  RHS  | 

This  subroutine  computes  values  for  the  coefficients  in  the  four  simul 
taneous  ordinary  differential  equations  solved  by  Ooms  method.  The  equations 
are  of  the  form 


a.,  dp*  +  a .0  +  a. 

Ail  UF  "i2  ds  Ai 


du*  .  de  _  . 

3  "ds-  +  Ai4  dlf  "  Ai5 


where  i  =  1,  conservation  of  chemical  species 
i  =  2,  conservation  of  mass 

i  =  3,  conservation  of  momentum  in  the  x,  downstream  direction 
i  =  4,  conservation  of  momentum  in  the  z,  vertical  direction 
c*  =  plume  centerline  concentration 

b  =  plume  characteristic  radius 

u*  =  plume  velocity  deficit 

9  =  plume  angle  with  respect  to  horizontal  axis 

s  =  integration  path  along  plume  centerline  axis 

The  sequence  of  operations  is 
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Real  Function  SIMUL 


This  program  is  a  general  subroutine  for  solving  matrix  equations. 
It  is  called  by  subroutine  RHS  and  is  used  Jo  solve  the  matrix  equation 
for  the  derivatives  of  plume  concentration,  ,  etc.  The  function 
specification  is 

Real  Function  SIMUL  (N,A,X,EPS,INDIC,NRC) 


Function  SIMUL  is  taken  from  "Applied  Numerical  Methods"  by  B.  Carnahan, 

H.  A.  Luther,  and  J.  0.  Wilkes,  published  by  J.  Wiley  and  Sons,  Inc.,  1969, 
Pages  290  to  291 . 

Subroutine  RHS  sets  N  =  4,  INDIC  =  1,  and  NRC  =  5  in  the  func¬ 
tion  call  statement.  The  value  of  EPS  is  set  in  Program  STEADY.  The 
reader  is  referred  to  the  text  by  Carnahan,  et  al .  for  a  complete  descrip¬ 
tion  of  this  function  subroutine.  The  following  paragraph  is  taken  from  the 
comment  statements  in  the  program  listing. 

When  INDIC  is  negative,  SIMUL  computes  the  inverse  of  the  N  by 
N  matrix  A  in  place.  When  INDIC  is  zero,  SIMUL  computes  the  N  solutions 
X(1)...X(N)  corresponding  to  the  set  of  linear  equations  with  augmented 
matrix  of  coefficients  in  the  N  by  N+l  array  A  and  in  addition  computes  the 
inverse  of  the  coefficient  matrix  in  place  as  above.  If  INDIC  is  positive, 
the  set  of  linear  equations  is  solved  but  the  inverse  is  not  computed  in 
place.  The  Gauss-Jordan  complete  elimination  method  is  employed  with  the 
maximum  pivot  strategy.  Row  and  column  subscripts  of  successive  pivot  ele¬ 
ments  are  saved  in  order  in  the  IROW  and  OCOL  arrays,  respectively. 

K  is  the  pivot  counter,  PIVOT  the  algebraic  value  of  the  pivot  element, 

MAX  the  number  of  columns  in  A,  and  DETER  the  determinant  of  the  coefficient 
matrix.  The  solutions  are  computed  in  the  (N+l)  th  column  of  A  and  then  un¬ 
scrambled  and  put  in  proper  order  in  X(1)...X(N)  using  the  pivot  subscript 
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information  available  in  the  IROW  and  JCOL  arrays.  The  sign  of  the  determi¬ 
nant  is  adjusted,  if  necessary,  by  determining  if  an  odd  or  even  number  of 
pairwise  interchanges  is  required  to  put  the  element  of  the  JORD  array  in 
ascending  sequence  where  JORD  (IROW(I))  =  JCOL(I).  If  the  inverse  is  re¬ 
quired,  it  is  unscrambled  in  place  using  Y(1)...Y(N)  as  temporary  storage. 

The  value  of  the  determinant  is  returned  as  the  value  of  the  function.  Should 
the  potential  pivot  of  largest  magnitude  be  smaller  in  magnitude  than  EPS,  the 
matrix  is  considered  to  be  singular  and  a  true  zero  is  returned  as  the  value 
of  the  function. 


Integer  Function  RUN6E 


This  program  is  a  general  subroutine  for  solving  a  set  of  first  order 
ordinary  differential  equations.  It  is  called  by  program  STEADY,  and  is 
used  to  start  the  solution  of  the  set  of  plume  development  equations.  After 
three  forward  steps  are  completed,  subroutine  HAMING  is  used  instead  of 
RUNGE  to  continue  the  numerical  integration.  The  function  specification  is 


Integer  Function  RUNGE  (N,Y,F,X,H) 


Function  RUNGE  is  taken  from  "Applied  Numerical  Methods"  by  B.  Carnahan, 

H.  A.  Luther,  and  J.  0.  Wilkes,  published  by  J.  Wiley  and  Sons,  Inc.,  1969, 
Pages  374  to  375. 

The  value  of  N  is  set  in  the  function  call  statement.  The  value  of  H, 
the  integration  step  size  is  either  input  or  assigned  a  default  value  in 
STEADY.  The  reader  is  referred  to  the  text  by  Carnahan,  et  al .  for  a  complete 
description  of  this  function  subroutine.  The  following  paragraph  is  taken 
from  the  comment  statement  in  the  program  listing. 

The  function  RUNGE  employs  the  fourth-order  Runge  Kutta  method  with 
Kutta's  coefficients  to  integrate  a  system  of  N  simultaneous  first  order 
ordinary  differential  equations  F(J)  =  DY(J)/DX,  (J=l  ,2, . . .  ,N) ,  across  one 
step  of  length  H  in  the  independent  variable  X,  subject  to  initial  conditions 
Y(J) ,  (J=l  ,2, . . . ,N) .  Each  F(J),  the  derivative  of  Y(J),  must  be  computed 
four  times  per  integration  step  by  the  calling  program.  The  function  must 
be  called  five  times  per  step  (Pass  (1 ) . - .Pass(5) )  so  that  the  independent 
variable  value  (X)  and  the  solution  values  (Y(l ) . . . Y(N ) )  can  be  updated  using 
the  Runge-Kutta  algorithm.  M  is  the  pass  counter.  RUNGE  returns  as  its 
value  1  to  signal  that  all  derivatives  (the  F(J))  be  evaluated  or  0  to  signal 
that  the  integration  process  for  the  current  step  is  finished.  SAVEY(J)  is 
used  to  save  the  initial  value  of  Y(J)  and  PHI ( J )  is  the  increment  function 
for  the  J(TH)  equation.  As  written,  N  may  be  no  larger  than  50. 


ky  I  Integer  Function HAMING 


?'•'  ■-  ."i  rv 


Via 


h.' 


This  program  is  a  general  subroutine  for  solving  a  set  of  first  order 
ordinary  differential  equations.  It  is  called  by  subroutine  STEADY,  and  is 
used  to  continue  the  solution  of  the  set  of  plume  development  equations  after 
RUNGE  has  provided  the  set  of  initial  values.  The  function  specification  is 

Integer  Function  HAMING  (N,Y,F,X,H,TE) 


Function  HAMING  is  taken  from  "Applied  Numerical  Methods"  by  B.  Carnahan, 
H.  A.  Luther,  and  J.  0.  Wilkes,  published  by  J.  Wiley  and  Sons,  Inc.,  1969, 
Pages  401  to  402. 


The  value  of  N  is  set  in  the  function  call  statement.  The  value  of  H, 
the  integration  step  size  is  either  input  or  assigned  a  default  value  in  pro¬ 
gram  STEADY.  The  reader  is  referred  to  the  text  by  Carnahan,  et  al .  for  a 
complete  description  of  this  function  subroutine.  The  following  paragraph  is 
repeated  from  the  program  listing. 


b*/. 
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HAMING  implements  Hamming's  predictor-corrector  algorithm  to  solve  N 
simultaneous  first-order  ordinary  differential  equations.  X  is  the  independent 
variable,  and  H  is  the  integration  stepsize.  The  routine  must  be  called  twice 

for  integration  across  each  step.  On  the  first  call,  it  is  assumed  that  the 

solution  values  and  derivative  values  for  the  N  equations  are  stored  in  the 

first  N  columns  of  the  first  four  rows  of  the  Y  matrix  and  the  first  three  rows 

of  the  F  matrix,  respectively.  The  routine  computes  the  N  predicted  solutions 
YPRED(J),  increments  X  by  H  and  pushes  all  values  in  the  Y  and  F  matrices  down 
one  row.  The  predicted  solutions  YPRED(J)  are  modified,  using  the  truncation 
error  estimates  TE(J)  from  the  previous  step,  and  saved  in  the  first  row  of  the 
Y  matrix.  HAMING  returns  to  the  calling  program  with  the  value  1  to  indicate 
that  all  derivatives  should  be  computed  and  stored  in  the  first  row  of  the  F 
array  before  the  second  call  is  made  on  HAMING.  On  the  second  entry  to  the 
function  (determined  by  the  logical  variable  PRED),  HAMING  uses  the  Hamming 
corrector  to  compute  new  solution  estimates,  estimates  the  truncation  errors 
TE(J)  for  the  current  step,  improves  the  corrected  solutions  using  the  new 
truncation  error  estimates,  saves  the  improved  solutions  in  the  first  row  of 
the  Y  matrix,  and  returns  to  the  calling  program  with  a  value  2  to  indicate 
completion  of  one  full  integration  step. 
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FIGURE  D.6  FLOW  CHART  FOR  FUNCTION  "VNEAR 


This  function  calculates  concentration  of  a  non-neutral ly  buoyant 
nstantaneous  spill  undergoing  gravity  spreading.  Used  by  INSTANT. 


2 


Calculate  initial  vlaues  of  righthand  sides  of  Equations  dr/dt  =  , 

dMwater/dt  =  »  and  dMevap/dt  =  »  where  YVNF(l)  =  r  =  spill  size, 

YVNF ( 2 )  =  Mwater  =  mass  water  entrained,  and  YVNF(3)  =  Mevap  =  mass 
evaporates.  VNF(l),  VNF(2),  and  VNF(3)  are  the  righthand  sides.  If 
spill  is  heavier  than  water,  N  =  2  and  YVNF(3)  and  VNF(3)  are  not  calcu 
lated.  Otherwise,  N  =  3. 


I 


Call  RUNGE,  Runge-Kutta  integration  routine.  RUNGE  makes  4  passes 
for  each  time  step.  For  each  pass,  up-dated  values  of  righthand  side 
are  computed.  During  each  pass,  RUNGE  =1.  At  end  of  4  passes, 
RUNGE  =0. 

Is  IRUNG  =  0  ? 


Yes  (from  VNPRNT  >  0) 

i 


Is  integration  time  =  print-out  time  ? 


Go  to  11 


Is  observation  point  in  the  spill  ? 


Concentration  =  0 


Concentration  =  CCPR 


Write  output 


Increase  print-out  counter  by  1.  Has  total 
number  of  print-out  cases  been  satisfied  ? 


Go  to  11 


Compute  final  value  of  time  =  TMVNF,  and  final 
size  of  spill,  RVNF.  IDEC  =  1  means  spill  has 
not  hit  either  bank,  IDEC  =  2  means  spill  has 
hit  nearest  bank,  and  IDEC  =  3  means  spill  has 
hit  both  banks. 


i-3' 


DIAJET-XXXX.  XXXX 
K4-II 

X*XXXXX.  XXXX  H-XXX.  XXXXXX 
DISTA-XXXXXXX.  XXXX  DISTAN-XXXXXXX.  XXXX 
ROA-XXXXX.  XXX  DENS-XXXXX.  XXX 
TEST 

AAAA AAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 
TESTNO-AAAAAAAA 

QIMIT-S  .  XXXXE+XX  SPTIME-XXXXXXXX.  X  TIMINC-  XXXXXXXX.  X 
TIfIMAX-XXXXXXXX.  X  TPER-XXXXXXXX.  X 
WC-XXXXX.  XXX  DC-XXXXX.  XXX 

XOBS-XXXXXXXX.  X  YOBS-XXXXXX.  XXX  ZOBS'XXXXXX.  XXX 

ALOC ’■XXXXXX.  XXX  BLOOXXXXXX.  XXX 

K5*-II 

EYCOEF-XXXX.  XXXXX  EZCOEF-XXXX.  XXXXX  VNUM-XXXX.  XXXXX 
U1MF-XXXXXXX.  XX  U2NP-XXXXXXX.  XX  ALFANF-XXXXX.  XXXX 

Kl-II  K?-II  K3  II 


NOTE:  II  =  Integer  Type  Input 

XX. XX  =  Fixed  Point  Type  Input 
AAAA1  =  ALPHA-NUMERIC  Type  Input 


DUMMY  INPUT  FORM  FOR  PROGRAM  "TIDAL" 


K1«I  I 

WOXXXXX.  XXX  DOXXXXX.  XXX 
H-XXX.  XXXXXX 

ROA-XXXXX.  XXX  DEf4S-XXXXX  XXX 
AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 
TESTNO-AAAAAAAA 

ALOOXXXXXX.  XXX  BLOC-XXXXXX  XXX 
K2— 1 1 

EYCOEF-XXXX.  XXXXX  EZCOEF-XXXX.  XXXXX  VNUM-XXXX.  XXXXX 
U1NF-XXXX.  XXX  U2NF-XXXXX.  XX  ALFANF-XXXXX.  XX  TPER-XXXXXXXX.  XX 
NOBS- III 

AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 A AAA AAA 1 AAA A A A A 1 AAAAAAA 1 
X03-XXXXXXX.  XXXX  Y08-XXXXXXX.  XXXX  ZOB-XXXXXXX. XXXX 
TLOW-XXXXXXX.  XX  TDELT-XXXXXXX.  XX  NSTEPMIIIII 
SMASS-XXXXX.  XXXX  HEVAP-XXXXX.  XXXX 


NOTE: 


Integer  Type  Input 


XX. XX  =  Fixed  Point  Type  Input 


AAAA1  =  ALPHA-NUMERIC  Type  Input 


(2) 


** 


Blank  Line;  will  not  be 
read  as  input 


DUMMY  INPUT  FORM  R)R  PROGRAM  "INSTANT" 


X-XXXXX.  XXX  H*  XXXXX.  XXX  DISTA-XXXXX.  XXX  DISTAN-XXXXX.  XXX 
RCJA-XXXXX.  XXX  DEMS-XXXXX.  XXX  TO-XXX.  X  UR-XXXX.  XXX 
TESTNO-AAAAAAA1 

AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 AAAAAAA 1 

DIAJET-XXXXX.  X  QINIT-SX.  XXXXE+XX  SPTIME-XXXXXXXX.  X 
TIMINOXXXXXXXX.  X  TIMMAX-XXXXXXXX.  X 

WC-XXXXX.  XXX  DC-XXXXX.  XXX  ALOC-XXXXX.  XXX  BLOC-XXXXX.  XXX 
KNF-XXXX.  XXXXX  KIF-XXXX.  XXXXX  KFF-XXXX.  XXXXX 

EYCOEF-XXXX.  XXXXX  EZCOEF-XXXX.  XXXXX  SLCQNC-XX.  XXX  XLSINC-XXX 
K 1*1 I  K7-IZ  K3  II 


NOTE:  II  =  Integer  Type  Input 

XX. XX  =  Fixed  Point  Type  Input 
AAAA1  =  ALPHA-NUMERIC  Type  Input 


DUMMY  INPUT  FORM  FOR  PROGRAM  "STEADY" 


***■« +PROORAH  SPILL ***** 


THIS  MAIN  PROGRAM  CALLS  THE  APPROPRIATE  DILUTION  MODEL 
(STEADY, TIDAL,  INSTANT)  FOR  COMPUTINC  THE  CHEMICAL 
CONCENTRATION  SPILLED  INTO  A  WATERWAY.  IT  ALSO 
CONTAINS  SUBROUTINE  "JET"  WHICH  ADJUSTS  THE  VELOCITY 
PROFILE  ANu  DIAMETER  OF  A  CONTINUOUS  DISCHARGE  FROM 
A  CIRCULAR  PUNCTURE  (CALLED  BY  "STEADY"  AND  "TIDAL") 
ANO  S'JCROUl  INE  "COEF"  WHICH  CALCULATES  THE  TIME- 
AVERAGE  DIFFUSION  ANO  DISPERSION  COEFFICIENTS 
(CALLED  BY  "STEADY"  ANO  "TIDAL") 


OUTPUT  FILE  NAMES.  SPILLOUT.DAT 

0PEN(UNIT-3, NAME-'SYO:  SPILLOUT.  DAT') 

OUTPUT  FILE  SPILLOUT.DAT  IS  USED  BY  STEADY,  TIDAL, 

ANO  INSTANI. 

DETERMINE  IF  THE  STEADY  OR  TIDAL  MODEL  SHOULD  BE  USED. 

TYPE-*.  'SELECT  THE  MODEL  TO  BE  USED: 

TYPE*. '  I.  STEADY' 

TYPE*.  '  2.  TIDAL  ' 

TYPE-*,  '  3.  INSTAN' 

TYPE*, 'ENTER  THE  NUMBER  CORRESPONDING  TO  THE  DESIRED  MODEL 

ACCEPT*,  Kill  KJI 

IF  (NMLKJI.  EG.  1)  CALL  STEADY 

IF  (NMLKJI.  EG.  2)  CALL  TIDAL 

IF  (NMLKJI.  EQ.  3)  CALL  INSTAN 

CAI  L  EXII 

END 

SUBROUTINE  JET  ( YR,  UR,  QINIT,  DIAJET, ROA, K1 , K2,  K3,  ALOC,  BLOC.  DC > 

REAL  JAY 

DIMENSION  YK(6>,  XOD(IO),  ZOD( 10),  PATHL( 10) 

UV-1.  2732*GINIT/( (DIAJET/100.  0>**2.  0) 

JAY- ( YR ( 1 ) /ROA ) * ( UV/UR ) **2.  0 
AV-EXP ( 0.  403469*0  2073 19*AL0C( JAY) > 

ROW-O.  871667*0.  1773*(UV/UR) 

X0D(0)-0.  0 
ZOD(O) -0  0 
PATHL (0)«0.  0 
1-0 

40  1-1*1 

X00( I >»XOD( 1-1 )+0.  10 
zn0( I )-AV*XOD( I )**0.  4 

PATHL ( I ) -PATHL ( I - 1 >  *SQRT( ( XOD ( I ) - XOD ( I - 1 ) >  **2.  0* ( ZOD ( I ) -ZOD ( I - 1 ) ) 
1**2.  0) 

IF  (PATHL(I).  LT. ROW)  GO  TO  40 

FXOD«XOD( 1-1 >*(XOD( I )-XOD( I-l >  >*( (ROW-PATHL( 1-1 >  > / (PATHL < I > - 
1PATHL ( 1-1 ) ) ) 

YR(2)-(DIAJtT/100.  0)*S0RT(l.  0/(4.  0*(0.  556796+0.  486344*UR* 

1 COS ( YR ( 4 ) ) /UV ) ) ) 

IF  (K3.  EQ.  1.  OR.  K3.  EG. -1)  00  TO  47 
YR ( 3 ) -FXOD*D IA JET/100.  0 
IF  (Kl.  N*.  -1 )  GO  TO  41 
YR(3)— YR(3) 

41  IF  (K2.  EG.  1 )  GO  TO  42 
IF  (K2.  EQ. -1)  GO  TO  43 
YH ( 6 ) —BLOC 

00  TO  44 


42  YR(6>  —  (AV*( ( ABS(FXOD) >**0.  4) )*(DIAJET/100.  0>+BL0C 
00  TO  44 

43  YN(6)-(AV*( (ABS(FXOD) >**0.  4> )*(DIAUET/100.  0>+BL0C 

44  CONT INUE 

IF  (YK(6).  LT.  0.  0)  00  TO  43 

IF  (YN(6>.  CT.  DC)  00  TO  43 

IF  (Kl.EQ.  l.OR  Kl.EQ. -1.0)  YR(4>-0. 0 

IF  (K?  EQ.  1)  YR(4)«ATAN(AV*0.  4*(ABS(FX0D> >**(-0.  6) > 

IF  (K2.  EQ. -1)  YR(4>— ATAN(AV*0.  4*(A8S(FX0D> )**(-0.  6) ) 

YN  ( 3 > -UV-UN*C03  (  YR  ( 4 )  > 

00  TO  46 

45  YN  <  3  >  — UV-UN 
YR(4)»0.  0 
YR(3)-0.  0 
YR ( 6 ) ■BLOC 
00  TO  46 

47  YN(5)-0.  0 
YN<6)-B>  OC 

Al  0C«AL0C+FX0D*DIAJ£r/100.  0 

IF  (K3.  EG.  1)  YR(4)-ATAN(AV*0.  4*(ABS(FX0D> >**(-0.  6) > 

IF  (K3.  EQ.  -1)  YR(4)-“ATAN(AV*0.  4*(ABS(FX0D> )**<-0.  6) > 

YR  ( 3 )  -UV-UN*COS  ( YR  <  4 ) ) 

YN<4)-0. 0 

46  YN(6)— YN(6) 

RETURN 

EN» 

SUBROUTINE  CQEF( VELO, EYCOEF,  EZCOEF, DC, WC. TPER, EXNF, EYNF,  EZNF, 
1EXIF.EYIF,  EXFF > 

V0.  QC-ASS ( VfcLO ) 

IF  (EYCOEF.  CE.  O.  3.  AND.  EYCOEF.  LE.  0.  7)  00  TO  10 
RH^(WC*DC)/(2.  0*DC+WC) 

UPRIN*--0.  03«26*VEI_0C/(RH**0.  166667) 

EYNF-EYCOEF*DC*UPR INF 
EZNF-EZCOEF*DC*UPRINF 

EXIF-3  93*DC*UPRINF*(1.  *((EZNF*TPER/(DC**2.  )>/ 

1 <2.  *( (2.  4674+ ( ( (EZNF* TPER ) / (DC**2.  ) )**2.  ) >**0.  5) ) ) ) 

EXNF  '■EYNF  *10. 

EYIF-EYNF 

EXFF-0  18* ( ( VELOC *UPR I UF ) **0 .  3)*(WC**2.  0)/RH*( 1.  0+( (EZNF 
1 *TPER / ( DC **2.  0) )/(2. 0*( (2.  4674+( ( (EZNF*TPER ) /(DC**2.  0) >**2.  O) ) 
2**0.  3) ) ) ) 

00  TO  20 

10  RH*(WC*DC)/<2.  0*DC*WC> 

UPR INF-O.  0932*VEL0C/(RH**0.  166667) 

£YMF«£VCOEF*D:*UPR INF 
EZNF-EZCOEF*DC*UPR INF 

EXIF-3  93*DC*UPRINF*(1. +<(EZNF*TPER/(DC**2  ))/ 

1 (2.  *( (2.  4674* ( ( (EZNF*TPER  > / ( DC**2.  >  >**2.  0) )**0.  5) ) > ) 
EXNF«EYNF*10. 

EYIF-EYNF 

EXFF-0  18* ( (VEL OC*UPRINP )**0.  3)*(WC**2.  0)/RH*( 1.  0+( (EZNF 
1*TPER/(DC**2.  0) )/(2.  0*( (2.  4674*( ( ( EZNF*TPER > / ( DC**2.  0) >**2.  0) ) 
2**0.  3 ) ) ) ) 

20  CONTINUE 
RETURN 
END 
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*«***PROCRAH  TIDAL****# 


THIS  PROGRAM  CALCULATES  THE  PLUME  TRAJECTORY  ANO  PLUME  CONCEN¬ 
TRATION  OF  A  LIQUID  CHEMICAL  CONTINUOUSLY  SPILLED  INTO  A  BODY  OF 
WATER  HAVING  FLUCTUATING  (TIDAL)  VELOCITY. 

INPUT  FI*  E  MAM*- S :  TIDEIN.DAT 
OUTPUT  FILE  NAMES:  SPILLOUT.DAT 

SUBROUTINE  TIDAL 

INPUI  VARIABLES: 

X  -  STARTING  VALUE  OF  PLUME  PATH  INTEGRATION.  M 
H  -  INTEGRATION  STEP  SIZE.  M 

DISTA  -  INITIAL  DOWNSTREAM  DISTANCE  TO  THE  FIRST  PRINTOUT,  M 
DISTAN  -  INCREMENTAL  DOWNSTREAM  DISTANCE  BETWEEN  PRINTOUTS,  M 
K4  -  P ARAMS ! ER  TO  ALLOW  DEFAULT  VALUES  TO  BE  USED  FOR  X. 

H. DISTA.  ANO  DISTAN.  K4-1  WILL  ALLOW  USER  INPUT. 

K4-2  WILL  USE  DEFAULT  VALUES  AND  USER  INPUT  IS  NOT 
NEFOED. 

ROA  »  WATER  DENSITY,  K0/M**3 

DENS  •  CHEMICAL  SPILL  DEN3ITY,  KG/M**3 
ACLASS(J)  «  FLOW  REGIME  DESCRIPTION 
DIAJET  -  INITIAL  PLUME  DIAMETER,  CM 
TESTNO  «  EXPERIMENTAL  TEST  NUMBER 
QINIT  -  CHEMICAL  DISCHARGE  FLOWRATE,  M**3/S 
SPTIMi-  -  TOTAL  TIME  OF  SPILL  DISCHARGE.  S 

TIMINC  -  TIME  INCREMENT  FOR  COMPUTING  CONCENTRATION  AT  OBSERVATION 
POINT.  S 

TIKMAX  -  MAXIMUM  TIME  FOR  COMPUTING  CONCENTRATION  AT  OBSERVATION 
POINT.  S 

TPER  -  TIDAL  PERIOD,  S 

UC  -  WIDTH  OF  THE  CHANNEL,  M 
DC  »  DEPTH  OF  THE  CHANNEL,  M 

X03S  -  DOWNSTREAM  DISTANCE  TO  THE  OBSERVATION  POINT,  M 

YOBS  »  Y  DIMENSION  FROM  THE  CENTER  OF  THE  CHANNEL  TO  THE 
OBSERVATION  LOCATION.  M 

ZOBS  -  Z  DIMENSION  FROM  THE  CHANNEL  SURFACE  TO  THE  OBSERVATION 
LOCATION,  M  (FOR  THE  PLUME  CENTERLINE  CONCENTRATION,  SET 
ZOBS— 1.  O) 

Al.  OC  -  DISTANCE  IN  THE  Y  DIRECTION  FROM  THE  CHANNEL  CENTERLINE  TO 
TH>-  SPILL  ORIGIN,  M 

BLOC  »  VERTICAL  DISTANCE  FROM  THE  CHANNEL  SURFACE  TO  THE  SPILL 
ORICIN,  M 

EYCOEF  -  Y  DIFFUSION  COEFFICIENT  FOR  THE  NEAR  FIELD  MODEL 
EZCOEF  -  Z  DIFFUSION  COEFFICIENT  FOR  THE  NEAR  FIELD  MODEL 
VNUM  -  ROUGHNESS  FAClOR  FOR  FRICTION  VELOCITY 

K5  »  PARAMETER  TO  ALLOW  DEFAULT  VALUES  TO  BE  USED  FOR 
EYCOEF, EZCOEF,  AND  VNUM.  KS-1  WILL  ALLOW  USER 
INHUT.  KS-2  WILL  USE  DEFAULT  VALUES  AND  USER 
INhUT  IS  NOT  NEEDED. 

U1NF  -  MEAN  RIVER  VELOCITY.  M/S 

U2NF  •  MAXIMUM  FLUCTUATING  VELOCITY  OF  A  TIDAL  RIVER,  M/S 
ALFANF  -  PHASE  SHIFT  FOR  THE  TIDAL  RIVER  PERIOD.  SECONDS 

K1  -  INITIAL  JET  DIRECTION  INUICAT0R(*1-H0RIZ0NTAL  DOWNSTREAM, 
-l-HORIZONTAL  UPSTREAM, O^ALL  OTHER  CONDITIONS) 

K2  •  INITIAL  JET  DIRECTION  IN*>ICAT0R(  +  1-V£RTICAL  UPWARD, -l- 
VERTICAL  DOWNWARD,  O-Al  L  OTHER  CASES) 

K3  *  INITIAL  JET  DIRECTION  INDICATOR ( +1-K0R I ZONTAL  TRANSVERSE 
TO  THE  RIGHT, -l-HORIZONTAL  TRANSVERSE  TO  THE  LEFT, 0* 

ALL  OTHER  CASES) 


E-6 


u  o  o  uoo  ouo  ouoou 


DIMENSIONS: 

INTEGER  COUNT,  RUNGE,  HAMINO 
REAL  XNF,  XIF,  KFF,  LAM,  MASS,  LOC,  JAY 
DOUBLE  PRECISION  ACLAS5(4) ,  TESTNO(  1) 

DIMENSION  TE(6>,  YR(6>,  FH(6),  Y(4,  6),  F(3,  6),  YRS (6 ) ,  LOC < 5-  2),  ZZ0(6> 
DIMENSION  TRD(6,  7),  TJ(  100) ,  TJPR  OCO,  3) 

DIMEfs'SION  XQD(  10 ) ,  Z0D(  10),  PATHL(  10) 

CCMMON/PHYS/DCOR,  EPS,  UPRI,  ROA-  DENS,  G,  UR 

COMMON/CONSVROT,  ALFA1,  ALFA2,  ALFA3 

OPEN  (UNIT-1,  NAME* 'SYO: TIDEIN.  DAT; O', TYPE* 'OLD' > 

0-9.  S0663 
N-6 

READ  IN  P ARAMS  1 ERS  AND  INITIAL  CONDITIONS. 

READ  (1,114)  DIA JET 
READ  (1,123)  K4 
X-0.  O 

H-0.  l-*DIAJtT 

DISTA-O. 0 

DISTAN-3.  *DIAJ£T 

IF  < K4.  EG.  2)  GO  TO  1001 

RtAD( 1,100)  X,  H 

R£AD( 1 , 102)  DISTA, DISTAN 

1001  RtAD< 1,101)  ROA, DENS 

R£AD( 1,  111)  (ACLASSt J),  J-l,  4) 

READ  (1,113)  TEST, NO  ( 1  ) 

READ(1,  117)  QINIT.  SPTIMt-,  TIMING,  TIMMAX,  TPER 
READ( 1, 118)  KC.DC 

R£AD(t.  IPO)  XOSS,  Y03S.  ZOSS,  ALOC,  BLOC 

READ  (1,123)  K3 

EYCOEP “O.  6 

EZCOEF-O.  067 

VNUM~0.  023 

IF  (X5.  EQ.  2)  GO  TO  1002 
READ( 1,  121 )  EYCOEF,  EZCOEF,  VNUM 

1002  READ( 1,  122)  U1NF, U2NF, ALFANF,  XI,  X2, X3 
UR -U INF 

PRINT  PARAMETERS,  HEADINGS,  AND  INITIAL  CONDITIONS. 

WRITE (3.  218) 

WR I TE ( 3. 203 )  TESTNO ( 1 ) 

WRITEO.  209)  (ACLASS(J),  J-l,  4) 

WRITE(3.  2 O'? )  DISTA,  DISTAN 
WRITEO,  236)  ROA,  DENS,  DIAJET 

WRITEO,  203)  QINIT,  TPER,  SPTIME,  TIMINC,  TIMMAX,  WC,  DC 
WR I TE (3, 206 )  A) OC ,  BLOC 
WRITEO,  212)  U1NF,  U2NF,  ALFANF 
IF  (XI.  E«.  1)  WRITEO,  261) 

IF  (XI.  EQ.  -1)  WRITEO,  232) 

IF  (X?.  EQ.  1)  WRITEO,  233) 

IF  (X?  EQ. -1)  WRITEO,  234) 

IF  (X3.  EG.  1)  WRITEO,  233) 

IF  (X3  EQ. -1)  WRITEO,  236) 

WRITEO,  233)  EYCOEF,  EZCOEF 

THIS  ROUTINE  DETERMINES  THF  CONCENTRATION  AT  A  CIVEN  OBSERVATION 
POINT  FOR  A  CONTINUOUS  SPILL  IN  A  TIDAL  RIVER. 

SET  MASS  DECAY  COEFFICIENTS  TO  ZERO 


E-7 
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KN*-=0.  0 

kif-o.  o 

KFF-O.  0 

C  CCMPUIE  TUR3ULENCE  LEVEL 

TLV-3.  807*VNUM/(  (DC«WC/(2.  *DC+WV)  >**0.  166666) 

C  FIX  CGMS  MODEL  COEFFICIENTS 

ALFA 1=0. 092 
ALFA2-1. 050 
ALFA3-1.  0 
LAM=1.  1619 
CQNC-.  3679 

NOW  INITIALIZE  TRD  AND  ZZO  (TO  BE  DEFINED  LATER) 

1  DO  60  1*1. 6 
BO  61  J*l.  7 
61  TRD( I.  J)*0.  0 
ZZ0< I ) *0. 0 
60  CONTINUE 

DIVIDE  THE  TIDAL  PERIOD  INTO  SIX  INC REMEN) S  AND  CALCULATE  AN  AVERAOE 
V£i  OCITV  FOR  EACH  INCREMENT. 

TRD(  J.  1 ) .  J-l  TO  6.  ARE  THE  6  AVERAGE  RIVER  VELOCITIES 

TINV-TPEH/6.  0 
DO  3  NO* 1 i 6 

3  TRD (NO.  1 )»< 1.  O/TINV ) * < <U1NF#TINV > - ( ( U2NF*TP£R/6.  2832>*(C0S( (6.  2832 
1/TPER)*(TINV»N0+ALFANF) >-COS( (6.  2832/TPER >* ( (TINV )* (NO-1 > +ALFANF > > 

2)  )  ) 

CAI  CULATfc  THE  CONVERSION  POINIS  BETWEEN  THE  VARIOUS  FLOW  REGIMES 
FOR  AIL  SIX  TIDAL  SEGMENTS. 

FIRST  CAI  CULATE  THE  POINT  OF  CONVERSION  FROM  THE  VERY  NEAR  FIELD 
TO  THE  NEAR  FIELD  MODEL  FOR  EACH  INCREMENT  OF  THE  TIDAL  CYCLE. 

.ft***-****  *-*  >*4««44****)***4*>*4*4t*** 

STATEMENTS  4  TO  40  ARE  OOMS  MODEL 

4  HH  H 
XX-X 

DO  16  N00-1.6 
DDISTA-DISTA 

IF  (THD(NOO.  1 ).  LT.  0.  0)  NSICNM 
IF  ( TRD(NCQ.  1 ) . GE.  0.  0 )  NSIGN^O 
IF  (TRD(NCQ»  1).  LT.  0.  0)  TRD  (WOO,  1>=-TRD(N00,  1) 

ALTL«ALFA3*TLV 
IF  (ALTL  Nt.  0.0)  00  TO  18 
WRITE (3.  232) 

CO  TO  1000 

18  UPRI-TROUiCO.  1  )*TLV 
UA»TRD'NOO, 1 ) 

UR-TRD(NOO, 1 ) 

IF  (ROA  EQ.  DENS)  DCDR-1. 0E+20 
IF  (ROA. EQ.  DENS)  00  TO  19 
DCDR-1.  0/(1.  C  ROA/DENS) 

19  R0T-(1.  0-R0A/DEN3 ) /ROA 
MASS*0 I N 1 T ♦DENS 
RATWD  WC/DC 

XEND -TRD( NOO,  1>*SPTIME 
RH*(WC*DC )/(2.  0*DC+WC ' 

IF  (RATWD.  OT.  100.  0)  RH-DC 

COMPUIE  DIFFUSION  AND  DISPERSION  COEFFICIENTS 


E-8 
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CAI  L  CCE»-  <TRD(NOO.  I  > ,  EYCOEF,  EZCQEF,  DC,  UC.  TPER,  EXNF,  EYMF.  EZN>=, 
1EXIF. EYIFi  EXFF > 

UNITE <3. 226) 

UHITE(3,  211 ) 

KK1-K1 

KK 

KK3-X3 

38  DO  37  1*1,  6 
37  YN ( I ) *0. 0 
YW(1 )»DFNS 
X*XX 

CALL  JET ( YR,  UR,  Q I N I T ,  DIAJET,  ROA.  KK1 , KK2.  KK3, ALOC,  3L0C, DC) 
YN2*YR(2> 

YR3*YN ( 3 ) 

YN4*VR ( 4 ) 

YR5*YK ( S ) 

YR6=YR<6> 

IF  (YnCI  >.  OT.  0.  95*D£NS>  YR (1 > -0. 95*DEN3 
DO  17  NNO-1,6 
TE(NN0)*0.  0 
FR(N\0>*0.  O 
Y(l, NNO ) *0.  0 
Y(2,  NNO )  *0.  0 
Y(3,  NN0>*0.  0 
Y  <  4,  NNO )  *0.  O 
F(l,  NNO)»0.  O 
F(2,  NNO )  *0.  O 
F(3, NNO ) *0.  O 
17  YKS ( NNO ) *0.  0 

EPS*0. 0000000001 

ccun r-o 

IF  < SA5A.2.  NE.  0)  H*2.  3*HH*(1 .  0-( DENS -ROA > /R0A*KK2 >* ( ( ABS( YR ( 3 > >* 
1  <TRD<NOO,  l)-**2.  0))**0.  3 > / ( (UINF+U2NF > **1 .  5) 

IF  (KK2.  £0.  0)  H-HH 
AH-H 

DO  21  J* 1 «  N 
TE(J)-0  0 

21  Y<4. J)*YR< J) 

22  IF  (RUN3E(N,  YR,  FR,  X,  H).  NE.  I  >  00  TO  24 
CAI  L  RHS( YR,  YRS) 

DO  23  K*l, 4 

23  FR(K)-YRS(K> 

FR  <  3 ) *COS ( YK  <  4 ) ) 

FR  ( 6 )  »S  I N  ( YK  (  4 )  ) 

00  TO  2? 

24  COUNr-CGUNT+1 
ISUB*4-C0UNI 
DO  23  J*1,N 

25  Y(ISU2.  J ) *YK ( J ) 

CALL  RHS< YR,  YRS) 

DO  26  K*l,  4 

26  F ( I SUJ ,  X) » YRS < K > 

F(ISUii.  3 ) *COS ( YR < 4 ) ) 

F < ISUii,  6  >  *S I N <  YR  <  4  > ) 

27  CONTINUE 

IF  (COUNT.  LE.  3)  00  TO  28 

IF  (A?S(Y(1, 1 >). LT. DENS/3. 0)  H-AMAX l ( HH, H ) 

IF  ((DENS  R0A)*KK2.  GT.  0.  0.  AND.  Yd,  1 ).  OT.  DENS)  CO  TO  39 
IF  ( (DENS- ROA) ♦KHZ.  OT.  0.  0.  ANO.  Yd,  1 ) .  LT.  0.  0)  GO  TO  39 

THE  ABOVE  2  STATEMENTS  CHANCE  THE  INITIAL  DIRECTION  OF  THE 
DISCHARGE  JfcT  BECAUSE  THE  PLUME  3ENDS  BACK  ON  ITSELF. 
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00  TO  31 
39  KK1-1 
KK3-0 

WRITE (3. 213)  NOO 
00  TO  38 

31  IF  <Y< 1, 3).  OE.  DDISTA)  WRITE(3,234>  Y ( 1 ,  3) ,  -Y< 1 , 6 ) , Y< 1 .  1 ) 

It-  <Y(1,  3).  CE.  DDISTA)  DOISTA*DDISTA+DISTAN 

RC»LAM*Y( 1< 2>*(-AL0G(CQNC) )**0.  S 
IF  (2. 0*RC . OT.  DC+Y (1.6))  00  TO  29 
IF  (2.  0*RC.  OT. -Yd,  6) )  00  TO  29 
IF  (2.  O+RC.  OT.  < (WC/2.  O)-ASS(ALOC) ) >  00  TO  29 
IF  ( Y< 1 <  1 ) . LT.  0.  00001 *DENS)  00  TO  29 
28  IF  (Y(l, 3).  OT.  XEND)  00  TO  29 
IF  (COUNT.  LT.  3)  00  TO  22 
30  M-HAMINO(N,  Y, F,  X,  H,  TE) 

CO  32  K-l.  4 

32  YR<K)-Y<1,K) 

CAI  L  RHS ( YR,  YRS) 

DO  33  K-l. 4 

33  F( 1/ K)-YRS(K) 

F(l, 5)«C0S(Y(l,  4) ) 

F(l, 6>-SIN(Y(l,  4) > 

IF  <M.  EQ.  1 )  00  TO  30 
COUNT -COUN 1+1 

CHtCK.  TO  DETERM INF  IF  THE  PLUME  HAS  INTERSECTED  A  CHANNEL  BOUNQARY. 
IF  SO.  THEN  CONVERT  TO  A  NEAR  FIELD  MODEL. 

IF  (Yd.  6).  OT.  O.  O)  00  TO  29 
IF  (Y(l, 6). LT. -DC)  00  TO  29 
00  TO  27 


*•*  »*  *■**#*  »  »-»****-•***»*  »****#«•»* 

TRD(J.  2),  J  1  TO  6.  ARE  THE  DOWNSTREAM  ENDPOINT  DISTANCES  OF 
COM3  PLUMES 

29  TRD(NOO, 2)-Y(l, 3) 

UR ITE( 3. 234)  Y( 1. 3).  -Y( 1. 6), Y( l,  l > 

IF  (N3I0N.EQ.  1)  TRD(NOO,  1  )—TRD(NOO,  1 ) 

WRITE (3.  216) 

WRITE (3, 210)  TRD(NOO. 1 ). DENS, YR2, YR3, YR4, YRS, -YR6 
WRITE (3, 217) 

WRITE (3- 210)  TRD(NOO,  1 ), DENS, YR ( 2 > , YR ( 3 ) , YR ( 4 ) , Y ( 1 , 5 > ,  -Y ( 1 , 6 ) 
IF  (NSION.  EQ.  1)  TRD(NOQ,  1 )— TKD(NOO,  1  > 

URITE(3. 214)  XX,  AH,  H 

WRITE (3,  227)  EXNF,  EYNF, EZNF,  EXIF, EYIF,  EXFF 
WRITE (3.  223)  At  TL 

TRD(  J,  3),  Jd  TO  6,  ARE  THE  CENTERLINE  PLUME  CONCENTRATIONS 
AT  THE  ENDROINTS 

TRD(NOO.  3)-Y(l,  1) 

IF  (Y(l,  6).  OT.  0.  0)  Y(l,6>-0.0 
IF  (Yd,  6).  LT. -DC)  Y(1,6)«-DC 

ZZO( J) ,  J-l  TO  6.  ARE  THE  DEPTHS  OF  THE  PLUME  ENDPOINTS 


IF  (Z03S.  Kfc  -1.  0)  ZZO(NOO)»ZOBS 
IF  (Z03S.  Mt-  -1.0)  00  TO  33 
IF  (Yd,  6).  EQ.  0.  0)  ZZ0(N00)-0.  0 
IF  (Yd,  6).  EQ. -DC)  ZZO(NOO>-DC 
40  IF  (Yd,  6).  NE.  0.  0.  ANO.  Yd,  6).  NE.  -DC)  ZZO(NOO)— Y(l,  6) 


r>oof>o  nooononn  ooonooonoo  nonnnooo 


#•*■*»<-♦■*■*■*■*■*-♦*  »***■»»****-*** 

MATCH  THE  VERY  NEAR  FItLD  AND  NEAR  FIELD  MODELS  AT  THE  POINI  OF 
CONVERSION. 


X START-DOWNSTREAM  LENGTH  OF  POINT  SOURCE  MODEL  AT  WHICH  THE 
CONCENTRATION  IS  THE  SAME  AS  OOMS  PLUME 

35  XSTART-< (LAM*LAM)*( Y< 1.  2)*Y(1, 2) >*TRD(NOO,  1 ) )/(4.  0*(EYNF*EZNF) 
1*«0.  5) 

TRD(NOO. 4)-XSTART-TRD(N00»  2) 

TRD<U. 4),  J  1  TO  6.  IS  THE  DISTANCE  UPSTREAM  FROM  X-0  TO  THE 
VIRTUAL  ORIGIN  OF  THE  POINT  SOURCE  MODEL 


C4I  CULATt  THE  DOWNSTREAM  LOCATION  FOR  THE  POINT  OF  CONVERSION 
FROM  THE  NEAR  FIELD  TO  THE  INIERMEDIATE  FIELD  MODEL. 

TRD(J<  5)  IS  TOTAL  LENOTH  OF  POINT  SOURCE  MODEL  FROM  ITS 
VIRTUAL  ORIGIN 

41  TRD(NOO, 5>«0.  3*TRD(N00.  1 >*DC*DC/EZNF 
LOC (1.1) -ALOC 
LOC ( 2>  1 ) -WC-ALQC 
LOC  (3.1)  -A*  QC 
LCC  ( 4.  1  )— WC-ALOC 
LOC  (5.  1  )-AI  DC 
50  L0C(1. 2)— Y(l.  6) 

LOC  (2.  2)— Yd.  6) 

LOCO.  2)-2.  0*DC+Y(1. 6) 

LOC  (4,2)  — V  (1.6) 

LOC (5. 2)-Y( 1, 6) 

••a**-*****-*******#**********  x**# 

MATCH  THE  NEAR  FIELD  ANn  INTERMEDIATE  FIELD  MODELS. 

DETERMINE  THE  INITIAL  CONCENTRATION  FOR  THE  INTERMEDIATE  FIELD 
MODEL  BY  COMPOUND  THE  AVERAGE  POINT  SOURCE  CONCENTRATION  OVER 
THE  DEPTH  AT  X-TRD(J,  5).  USE  100  DEPTH  INCREMENTS. 

135  AVOC-O.  O 

DIV-DC/99.  0 

1/FI,  1.F2,  AND  1/F3  ARE  THE  3  POSSIBILITIES  FOR  THE  LEADING 
TERM  IN  T!  it  POINT  SOURCE  MODEL.  F2  OR  F3  MAY  BE  NEEDED 
IF  TUP  RIVfcR  VELOCITY  IS  VERY  SMALL. 

FI— 12.  5664*TRD(N00,  5>*( (EYNF*EZNF> **0.  5>/MASS 

F2-44.  5466* ( TRD ( NOO.  5)**1.  25>*(U2NF**0.  5)*(EXNF**0.  25)* 

1  (  (EYf4F*EZN>-  )**0.  5>*(  (  (C0S(6.  2832*  (  <  2*N00-1  )*TPER/2.  O+ALFANF) 
2/TPER) )**2)**0.  25)/ (2.  6*MASS* ( TPER**0.  5>*( (TRD (NOO,  1 )**2)**0.  625) ) 
F3-44.  5466* (TRD (NOO.  5)**1.  3333)*(U2NF**0.  3333>*(EXNF*0.  16667) 

1*(  (EYNF*EZN>-  >**0.  5)*(  ( <SIN(6.  2B32*(  (2*N00-1  )*TPER/2.  O+ALFANF) 
2/TPER) )**2)**0.  25) /(l.  S6*MASS*(TPER*#0.  16667)* ( (TRD( NOO.  1 )**2) 
3**0.  666) > 

IF  (FI.  GE.  F2.  AND.  FI.  GE.  F3)  F22-1.0/F1 

IF  (F2.  GF.  FI.  AND.  F2.  GE.  F3)  F22-1.0/F2 

IF  (F3.  GE.  FI.  AND.  F3.  GE.  F2)  F22-1.0/F3 

F22-1.  O/Fl 

IF  (KNF.  EG.  0.0)  F23-1.0 
IF  (KNF.  EG.  0.  0)  00  TO  134 

IF  (KNF.  NE.  0.  0.  ANO.  TRD  (NOO,  1 ) /(KNF*  TRD  (NOO,  5)  ).  OT.  0.  012) 

1  F23-EXP (-KMF*TRD(NOO,  5) /TRD (NOO,  1) ) 


E-ll 
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IF  (KNF.  NE.  0.  0.  ANO.  TRD(N00,  1 ) / (KNF*TRD(NCO,  5)  >.  LE.  0.  012) 

1  F23-0.  0 

134  DO  136  1-1.  100 
AAAZ-O.  0 
VI0«DIV*(I-1) 

DO  137  U*l,  3 

AAZZ-EXP( (-TRD(NOO,  1 )*( (ALOC-LCC(J.  1  )  >*( ALCC-LCC ( J,  1 >  >  >/<4. 0* 

1  (TRD(NGO.  5)  >#EYNF> )-(TRO(NOO,  1  >*(  (VID- 
2LCC  < Ji 2) >*(VIO-LOC( J,  2) )  >/(4.  0*(TRD(NC0.  5) 

3>*EZNE>  )  > 

137  AA4Z-AAAZ+AAZZ 

C 1 1 1 -F2?*F23*AAAZ 
136  AVCC-AVGC » Cl  1 1 

TRD(NOO,  6>»AVGC/100.  0 

TRD(U,  6)  IS  THh  AVERAGE  CONCENTRATION 

CALCULATE  THE  ORIGIN  LOCATION  IN  THE  X  DIRECTION  FOR  THE  FAR  FIELD 
FIELD  MODEL  BY  GUESSING  A  LENGTH  FROM  X-0  THAT  WILL  GIVE  A 
CONCENTRATION  EQUAL  TO  TRD<J, 6). 

150  MN-*-0 

XLSINC-O.  01*TRD(N00,  3> 

XLSINC  IS  THE  INCREMENT  TO  THE  GUESSED  LENGTH. 

XXLS-XLSINC 
144  C11IFF-0.  0 
CUIF-O.  O 
DO  133  1-1,20 
DII-I 

1/FI*  1/F2,  ANi>  1.F3  ARE  THE  3  POSSIBILITIES  FDR  THE 
LEADING  TERM  IN  THE  LINE  SOURCE  MODEL 

FI— (WC**2.  0)*TRD<N00,  1 >/( (DI I**2>*9.  B696*EYIF*XXLS) 

IF  (FI.  LE.  0.  012)  F2-0.  0 

IF  (FI.  GT.  0.  012)  F2»EXP(-1.  O/Fl > 

Cl I IFF-( (COS(DI 1*3.  14 16* ( ALOC+( WC/2.  0) )/WC>  >**2.  0)*F2 

138  Cl 1 IFF-C1 1 IFF+C 1 1  IFF 
CllIFP»CUIFr*2.  0*1.  0 
F3«WC*DC*TR0(N00, 1 ) /MASS 

EXBAR-EX  IF  *< 1.  0+( (EZMF*TPER/ (DC**2.  0) >/(2.  0*(2.  4674+ 

1 ( (EZNP*TPER/<DC**2.  0) )**2.  0>**0.  3) ) ) ) 

EXBAR  IS  THi-  TIME-AVERAOE  DISPERSION  COEFFICIENT 

F4-3.  3449«WC*DC*( (XXLS*TRD(NOO,  1))**0.  23)  +  <EXBAR**0.  23) 
1*(A3S(CQS(6  2832* ( (2. 0*N00-1 )*TPER/2.  O+ALFANF) /TPER ) >**0.  5)/ 

2(2.  6+MASS* ( TPER**0.  3) ) 

F3-2.  34*WC+DC*(XXLS**0.  3333>*(EXBAR**0.  3333)* 

1 (A8S(SIN(6.  2832* ( ( 2.  0*N00-1 >*TPER/2.  O+ALFANF) /TPER ) )**0.  3)/ 

2(1.  8A+MASS* ( TPER**0. 6667)) 

IF  (F3.  GE.  F4.  AND.  F3.  GE.  F3)  F22-1.  0/F3 

IF  (F4.  GE.  F3.  AND.  F4.  GE.  F3)  F22-1.0/F4 

IF  (F3.  GE.  F3.  AND.  F3.  GE.  F4)  F22-1.0/F5 

IF  (KIF.  EQ.  0.  0)  F23-1.0 

IF  (KIF.  EQ.  0.  0)  GO  TO  143 

IF  (KIF.  NE.  0.  0.  ANO.  TRD(NOO,  1 ) / (KIF*XXLS )  GT.  0.  012) 

1 F23-EXP  ( -K  IF*XXLS/TRD  ( 1400,  1  > ) 

IF  (KIF.  NE.  0.  0.  ANO.  TRD(NOO,  1  >/<KIF*XXLS> .  LE.  0.  012) 

1F23-0.  0 

143  C11IF-C11 IFF*F22*F23 
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RAIFNF«C1 1 IF/TRD(NOO.  6) 

IF  <MN.  EQ.  1 )  00  TO  141 
IF  (MN. EQ.  2)  00  TO  142 
IF  (RAIFNF.  EQ.  1.  0)  GO  TO  16 
IF  (RAIFNF.  LT.  1.0)  MN-1 
IF  (RAIFNF.  LT.  1.  0)  00  TO  141 
IF  (RAIFNF.  OT.  1.  0)  MN-2 
CO  TO  142 

141  IF  (RAIFNF.  LT.  0.  99)  XXLS-XXLS-XLSINC 
IF  (RAIFNF.  LT.  0.  99)  GO  TO  144 

CO  TO  14 

142  IF  (RAIFNF.  GT.  1.  01 )  XXLS-XXLS+XLSINC 
IF  (RAIFNF.  OT.  1. 01 )  GO  TO  144 

14  I*  (NSIGN.  EQ.  1)  TRD(NOO,  1>— TRD(NOO,  1) 

TRD(NOO.  7 ) *XXLS-TRD(NOQ. 3>+TRD(N00, 4) 

TRD( J. 7)  IS  THE  UPSTREAM  VIRTUAL  ORIGIN  FROM  X»0  OF  THE 
INTERMEDIATE  FIELD 

800  TRD(NOO. 3>«TRD(KC0, 3>-TRD(N00, 4) 

TRD( J.  3)  IS  NOW  THE  APPLICABLE  LENGTH  OF  THE  POINT  SOURCE 
MODEL  ME4SUHED  FROM  X»0. 

16  CONTINUE 

*■+■»*■*■«  «4-»*********  »** 

ALL  MQDEIS  HAVE  NOW  BEEN  MATCHED 

<  *•»■*■»  *■#**«  44*444*44**4*.««  4 


CAI  CULATb  THE  CONCENTRATION  AS  A  FUNCTION  OF  TIME  AT  THE  OBSERVA¬ 
TION  POINT. 

990  TYPE  •*.  'INPUT  THE  OBSERVATION  COORDINATES  (IN  METERS)' 

TYPE  *,  'TO  TERMINATE  THE  RUN.  ENTER  XOBS— 1.0' 

TYPE  4,  '  ' 

TYPE  4,  'INPUT  XOBS' 

ACCEPT  4,  XOBS 
TYPE  4,  '  ' 

TYPE  4,  'INHUT  YOBS' 

ACCEPT  4, YOBS 
TYPE  '  ' 

TYPE  4,  'INPUT  ZOBS' 

TYPE  *.  'INPUT  ZOBS— 1.0  TO  OBTAIN  THE  CENTERLINE  OF  THE  PLUME' 
ACCEPT  4,  ZOBS 
TYPE  4, '  ' 

IF  (XOBS.  EQ. -1.  0)  GO  TO  1000 
IF  (ZOBS.  EQ. -1.  0)  WRITE(3.  23S)  XOBS. YOBS 
999  IF  (ZOBS.  Np  -1.0)  WRITEO.  240)  XOBS.  YOBS 


DE I  ERMINE  THE  RIVfcR  VELOCITY  AT  THE  OBSERVATION  TIME 
-TIMtE.  STATEMENTS  160-261  DETERMINE  WHICH  OF  THE  TIDAL 
SEGMENTS  APFLY. 

TIMEE-O.  0 

160  IAQ-0 

A  RETURN  WILL  8E  MADE  TO  160  WITH  THE  NEXT  OBSERVATION  TIME 
AT  THF  COMPLETION  OF  THIS  CYCLE  OF  COMPUTATIONS. 

TMI-TIMEF/TPER 

161  IF  (TMI.GT.  1.0)  IAQ-IAQ+1 
IF  (TMI.OT.  1.0)  TMI-TMI-1.0 
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IF  (Till.  GT.  1.  0)  00  TO  161 

I AG  IS  THE  MUMMER  OF  TIDAL  CYCLES  <  OR  -  TIMEE. 

IF  (TNI.  i_T.  1.  0/6.  0)  IKM-1 

I KM  IS  THE  NUM8ER  OF  THF  TIDAL  SEGMENT  OF  INTEREST. 

IF  (TMI.  LT.  1.  0/3.  0.  AND.  TMI.  GE.  1  0/6.  0)  IKM-2 

IF  (TMI.  LT.  1.  0/2.  0.  AND.  TMI.  GE.  1.  0/3.  0)  IKM-3 

IF  (TMI.  LT.  2.  0/3.  0.  AND.  TMI.  GE.  1.  0/2.  0)  IKM-4 

IF  (TMI.  LT.  9.  0/6.  0.  AND.  TMI.  GE.  2.  0/3.  0)  IKM-9 

261  IF  (TMI. GE.  9.  0/6  0)  IKM-6 

SOLVE  THE  EQUATIONS  FOR  DETERMINING 

THE  NUMBER  OF  TIMES  THE  WATER  NOW  AT  THE  OBSERVATION 
POINT  HAS  PASSED  UNDER  THE  SPILL  ORIGIN. 

STATEMENTS  600-616  DO  THIS  BY  A  MODIFIED  NEWTONS  ROOT¬ 
SOLVING  METHOD. 

600  NCYC-1 
IKA-1 
I COUNT-O 
DO  610  1*1 >  300 
DO  610  J-l,  3 

610  TJPR ( I »  J)-0.  0 

611  TJPR(NCYC, 2)-X0BS-UlNF*TIMEE+( (U2NF*TPER>/6  2832>*<C0S(6.  2832/ 

1 TPER+ ( TIMEE +ALFANF ) ) I+U1NF+TUPR (NCYC,  1 ) - ( ( U2NF*TPER  > /6.  2B32>* 

2 (COS (6.  2832/TPER*(TJPR(NCYC.  1 l+ALFANF) ) ) 

THE  ROOT  CORRESPONDS  TO  TU(NCYC,2)-0 

TJPR(NCYC« 3)-UlNF+U2NF*(SIN(6.  2832/TPER*(TJPR(NCYC,  1 >+ALFANF>  > ) 

TJ(NCYC»  3)  IS  THE  RIVER  VELOCITY  AT  GUESSED  ROOT  TIME  TJ(NCYC.  1) 

IF  (NCYC.  EG.  1)  00  TO  608 
IF  ( IKA.  GT.  1 )  00  TO  608 

IF  ( (TJPR(NCYC.  3>*TJPR(NCYC-1, 3) >. LE.  0. 0.  AND.  (TJPR(NCYC- 2)* 
1TUPR(NCYC-1,  2) ).  GT.  0.  0)  IKA-10 
IF  (IKA.  GT.  1)  NCYC-NCYC-1 
IF  (ICOUNT.  EQ.  10)  GO  TO  700 
00  TO  608 
700  IC0UN1-0 
IKA-1 

608  IF  (TJPR(NCYC«  1 ).  EG.  TIMtrE)  NCYC-NCYC+1 
IF  (TJPR(NCYC-1. 1).  EG.  TIMEE)  GO  TO  622 
NCYC-NCYC+1 

IF  (NCYC.  GT.  300)  TYPE  *,  'NCYC  EXCEEDS  300.  RUN  TERMINATED.  ' 

IF  (NCYC. OT.  300)  WRITE(3,  290) 

IF  (NCYC. GT.  300)  GO  TO  1000 

TUPR (NCYCi  1 )-TJPR( NCYC-1,  l)+TPER/(2.  0*IKA) 

IF  (IKA.  GT.  1)  ICOUNT-ICOUNT+1 
IF  (TJPR(NCYC, 1 ).  LE.  TIMEE)  GO  TO  611 
TJPR (NCYC,  1 ) -TIMEE 
GO  TO  611 
622  NCYC— NCYC-1 
NRTJ-0 
NIT-1 

612  IF  (TUPR(N(T, 2).  LT.  0. 0)  GO  TO  613 
IF  (TJPR(NIT, 2).  GE.  0.  0)  GO  TO  614 

613  NIT-NIT+1 

IF  (NIT.  OT.  NCYC)  GO  TO  616 
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IF  (TJPRCMIT.  2).  LT.  0.  0)  00  TO  613 

NIT-NIT-1 

00  TO  615 

614  NIT-NIT+1 

IF  (NIT.  0T.  NCYC)  00  TO  616 
IF  (TJPR(NIT, 2).  OE.  0. 0)  00  TO  614 
NIT-NIT- 1 

615  FR0T1 1-TJPR(NIT<  2) 

FR0T22-TJPR (NIT+1 .  2) 

TR0T11-TJPR(NIT, 1 ) 

TR0T22-TJPR (NIT+l. 1) 

617  TROOT 1 -TROT 1 l-M  ( A8S(FR0T1 1 )  )* ( TR0T22-TR0T1 1 ) ) / ( ABS(FR0T1 1 ) 

1 *A8S ( FR0T22 ) > 

FR0QT1-XQ8S— U1NF*TIM£EM (U2NF*TPER ) /6.  2S32)*(C0S(6.  2832/TPER 
l*(TIMt-E*ALFANF  >  )  >*UlNF*TROOTl-(  (U2NF*TPER > /6.  2S32)*(C0S(6.  2832 
2/TPER* ( TRCOT 1 +ALFANF  > ) > 

IF  (ARS(FROOTl)  .  LE.  0. 01)  00  TO  619 
IF  ( (FR0T11 /FR00T1 ) .  LE.  0.  0 )  00  TO  640 
ZZ-A3S ( FROuf 1 ) / ( ASS ( FR0DT1 ) +ABS ( FR0T22 ) > 

TTR0T2-TR0T22 
00  TO  641 

640  ZZ-A8S(FKC0T1)/(A3S(FR00T1)+ABS(FR0T11>  > 

TTR0T2-TR0T1 1 

641  Tr00T2-TR00T1+ZZ*(TTR0T2-TR00T1 ) 

TFROT2«XOBS-U1NF*(TIMEE-TROOT2)M (U2NF*TPER>/6.  2832)* 

1 ( (C0S(6  2832/TPER* ( TIMEE+ALFANF ) ) )-(C03(6.  2832/TPER* 

2 ( TR00T2+ALFANF ) ) ) ) 

IF  ( (TFRUT2/FR00T1 >.  OE.  0.  0.  ANO.  (TR00T2/TR00T1 ) .  GE.  1.0) 

1  TROT 1 1 -TR00T2 

IF  ( ( TFR0T2/FR00T1 ) .  OE.  0.  0.  ANO.  (  TROOT2/TROOT1 ) .  LT.  1.0) 

1 TR0T22-TRCQT2 

IF  (  ( TFR0T2/FR00T1 ) .  LT.  0.  0.  AND.  (TR00T2/TR00T1  ).  GE.  1.  0) 

1 TROT 1 1 — THOOT 1 

IF  (  (TFR0T2/FR00T1).  LT.  0.  0.  ANO.  (TR00T2/TR00T1 > .  GE.  1.0) 

1 TR0T22-TR00T2 

IF  (  (TFR0T2/FR00T1  >  .  LT.  O.  0.  ANO.  (TR0QT2/TR00T1 ) .  LT.  1.0) 

1 TROT 1 1 -TRQ0T2 

IF  (  (TFRQT2/FR0QT1 ) .  LT.  0.  0.  ANO.  ( TR00T2/TR00T1 ) .  LT.  1.  0> 

1 TR0T22— TR0QT1 

FR0T1 1*X0BS-U1NF*(TIMEE-TR0T1 1 )M ( U2NF*TPER ) /6.  2832)* 

1 ( (COS (6.  2832/TPER* (TIMEE+ALFANF) ) >-(C0S(6.  2832/TPER* 

2 ( TROT 1 1 +ALFANF ) ) ) > 

FR0T22-X0BS-UlNF*(TIMEF-TR0T22)  +  ( ( U2NF*TPER  > /6.  2832)* 
l((C0S(6.  2832/TPER*(TIMEfc+ALFANF>  >  >-<C03(6.  2832/TPER* 

2 ( TR0T22+ALFANF  > ) ) ) 

IP  (ARS(TR00T2-TR00T1 ).  LE.  (0.  00001 *TPER/2. 0) )  GO  TO  619 
00  TO  617 

619  NRTJ-NRTJ*! 

NRTJ  IS  THP  NUMBER  OF  ROOTS  AND  TJ(NRTJ)  ARE  THE 
CORRESPONDING  ROOTS  (TIMES). 

T  J  ( NR  T  J )  -TROOT 1 
NIT-NIT+1 
CO  TO  612 

616  CONTINUE 

IF  (NRTJ.  EG.  0)  TIMEE-TIMEE+TIMINC 

IF  (NRTJ.  EQ.  0.  AND.  TIMEE.  LE.  TIMMAX)  00  TO  160 

624  IF  (NRTJ  EG.  0.  AND.  TIMEE.  OT.  TIMMAX)  GO  TO  1000 

»*■*  *  *****  ************  ******* 

DEI  ERMINE  WHAT  MODELS  ARE  REQUIRED  TO  CALCULATE  THE  CONCENTRATION 
AT  THF  OBERVATION  POINT  BY  DElERMININO  WHAT  MODELS  APPLY 


non  ono  ono  n  r>  o  n  n  o  o  o  o  o  o 


AT  THE  ROOT  TIMES. 

CONCEN-O.  0 
CONVNF-O.  0 
CONNF-O.  0 
CONIF-O.  0 
IVNF-0 
INF-0 
IIMFD-0 

DEI  ERMINE  IF  OBSERVATION  POINT  IS  IN  THE  SPILL 
KT-TIMEF/TPER 

KT- INTEGER  NO.  OF  WHOLE  TIDAL  PERIODS  IN  TIMEE 

TTO-TIME£-KT#TPER 

A0-U1NF*KT-*TPER 

AO— DOWNSTREAM  DISTANCE  OF  LEADING  EDGE  AFTER  KT  PERIODS 

XEND-O.  0 
XSTART-O.  O 
TTTD-TPER/6. 

DO  320  J-1.6 
TTDD-TTD-J*TPER/6. 

IF  (TTDO.  LT.  O.  0)  TTTD-TTDD  ♦  J*TPER/6. 

IF  (TTDO.  LT.  0.0  .AND.  J  .  N£.  1 )  GO  TO  321 
IF  ( TRD  <  Jj  1 ) .  LT.  0.  0)  GO  TO  310 
XEND-XEND+TRD(J,  1 >*TTTD 
00  TO  320 

310  XSTART-XSTART+TRD(J.  1MTTTD 

320  CONTINUE 

321  XEND-XEND+AO 

IF  (TIMEE.  OT.  SPTIME)  GO  TO  330 

XSTART-XSTART 

00  TO  340 

NOW  FOR  TIMfcE>SPTInE 

330  XSTART-O.  0 
TTTD-TPER/6. 

KT-SPTIME/TPER 

TTD  -SP  T I KE-KT*TPER 

BD-U1NF*KT*TPER 

BD  IS  DOWNSTREAM  LOCATION  OF  TRAILING  EDGE 

DO  329  J-1.6 
TTDD=TTD-J*TPER/6. 

IF  (TTDO.  LT.  0.  0)  TTTD-TTDD+ J*TPER /6. 

IF  (TTDD.  LT.  0.  0  .AND.  J  .  NE.  l>  00  TO  326 
IF  (TRD(J.  1  >.  OT.  0.  0)  00  TO  329 
XSTART»XSTART+TRD(J. 1 )*TTTD 
329  CONTINUE 
326  XSTART-XSTART+8D 

340  IF( XOBS.  OT.  XENO.  OR.  XOBS.  LT.  XSTART)  CONCEN-O.  0 
IF( XOBS.  OT.  XENO.  OR.  XOBS.  LT.  XSTART)  GO  TO  390 

NOW  DETERMINE  IF  XOBS  LIES  IN  THE  MOST  RECENT  VERY  NEAR  FIELD 

DO  629  I— 1. NRTJ 
629  TJPR  ( I .  U-0.  0 
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DO  620  IEB-l.NRTU 

IYZ-NRTU-IEB+1 

IIVNF-0 

IIIAQ-0 

TTTMI-TU(IYZ>/TPER 

THIS  IS  THE  SAME  PROCEDURE  AS  THE  BLOCK  STARTING  AT  160 
BUT  USES  ROOT  TIMES  RATHER  THAN  TIMEE. 

633  IF  (TTTMI.  OT.  1.  0)  1 1 IAQ* 1 1 IAQ+1 
IF  (TTTMI.  OT.  1.  0)  TTTMI-TTTMI-1.  0 
IF  (TTTMI.  CT.  1.  0)  00  TO  633 

IF  (TTTMI.  LT.  1. 0/6.  0)  IIIKM-1 

IF  (TTTMI.  LT.  1.  0/3.  0.  ANO.  TTTMI.  GE.  1.  0/6.  0)  IIIKM-2 

IF  (TTTMI.  LT.  1.  0/2.  0.  AND.  TTTMI.  OE.  1.  0/3.  0)  IIIKM-3 

IF  (TTTMI.  LT.  2.  0/3.  0.  ANO.  TTTMI.  GE.  1.  0/2.  0)  IIIKM-4 

IF  (TTTMI.  LT.  3.  0/6.  0.  ANO.  TTTMI.  GE.  2.  0/3.  0)  IIIKM-3 

IF  (TTTMI. OT.  3.  0/6. 0>  IIIKM-6 
IF  (IEB. NE.  1)  GO  TO  626 

THIS  ONLY  PERMITS  THE  MOST  RECENT  VERY  NEAR  FIELD  TO 
BE  CONSIDERED. 

IF  (  (TRD(IIIKM,  1 )/X08S>.  OT.  0.  O.  AND.  ( TRD(  1 1 IKM.  2 ) /X03S ) .  GE.  1.0) 

1 IVNF-1 

THE  ABOVE  STATEMENT  INSURES  THAT  THE  MOST  RECENT  VERY 
NEAR  FIELD  DOES  OVERLIF  XOBS  IN  BOTH  MAGNITUDE  AND  DIRECTION 
IF  IVNF-1  THERE  IS  A  VERY  NEAR  FIELD  THAT  CONTRIBUTES  TO 
THF  TOTAL  CONCENTRATION 

IF  ( IVNF.  EQ.  1 )  00  TO  620 

626  IF  ( ( TRD( 1 1 IKM. 2) /A3S( XOBS) )  .  OE.  1.0)  IIVNF-1 

THIS  APPLIES  WHEN  RIVER  VELOCITY  IS  IN  THE  OPPOSITE  DIRECTION  OF 
XOBS  AND  SU  A  REVERSED  NEAR  FIELD  MUST  BE  USED 

IF  ( I IVNF.  EO.  1)  00  TO  627 

IF  (TRD( IIIKM/ 3) /ABS< XOBS) .  OE.  1.  0)  GO  TO  627 
00  TO  620 

627  IUIIIKM 
KK-0 

YY-ABS ( TRD ( I U* 1 ) )*( TPER*( 1 1 1 AQ+I J/6. O)-TU(IYZ)) 

IF  ( (TPER*(IIIAQ+IJ/6.  0) ).  EQ.  TIMEE)  00  TO  634 

628  IF  (IU.LT.  6)  00  TO  629 
IU  1 

00  TO  630 

629  IU-IJ+1 

UbfaUU  +  l 

TT-TPER* ( 1 1 1 AQ+ ( 1 1 IKM+KK ) /6.  0 ) 

IF  (TT.  LF.  TIMEE)  YY-YY+ABS ( TRD (I  U.  1 > )*TPER/6.  0 

IF  (TT.  LF.  TIM*rE>  00  TO  628 

YY— YY+A3S < TkD ( I J# 1 ) )*(TIMEE-(TT-TPER/6  0)) 

634  IF  (I IVNF.  EQ.  0)  00  TO  631 

INF-NUMBER  OF  CONTRIBUTING  NEAR  FIELDS 

TUPRIIYZ, 1 ) -A88 ( YY-TRD ( 1 1 IKM>  2) ) 

INF-INF+1 
00  TO  620 

631  IF  (YY.  LF.  TRDdllKM,  5))  INF-INF+1 
IF  (YY.  LF.  TRDdllKM.  5) )  00  TO  620 
TUPRdYZ.  1  >-YY-TRD(  1 1  IKM.  5) 


620  CONTINUE 
NROOTS-O 

IF  (IVNF.  NF.  1)  00  TO  180 


CALCULATE  THE  CONTRIBUTION  TO  THE  CONCENTRATION  OF  THE  ONE 
APPLICABLE  VERY  NEAR  FIELD 

158  IF  (TRDdKM,  1).  GE.  0.  0)  N9IGN-0 
IF  (TRDdKM,  1).  LT.  0.  0)  NSI0N-1 

IF  <  NS  ION.  EQ.  1  )  TRDdKM.  1)— TRDdKM,  1) 

ALTL-ALFA3*TLV 
UPRI-TRD< I KM. 1 >*TLV 
UA-TRDdKM.  1) 

UR-TRDdKM.  1) 

IF  (ROA. EG.  DENS)  DCDR-l .  0E+20 
IF  (ROA.  EO.  DENS)  00  TO  159 
DCDR-1.  0/(1.  0-R0A/DEN8) 

1 59  ROT- ( 1 .  O-ROA/DENS ) /ROA 
RATWD-WC/DC 

XEND-'TRD(  I  KM.  1  )*SPTIME 
MASS~Q INI T*DENS 
RH«(WC*DC)/(2.  0*DC+WC ) 

IF  (RATWO.  OT.  100.  0)  RH-DC 

CALL  COE*-  (  TRD(  I KM,  1 ) ,  EYCOEF.  EZCOEF,  DC,  WC,  TPER,  EXNF,  EYNF.  EZNf 
1EXIF,  EYIF.  EXFF ) 

KK1-K1 

KK2-K2 

KK3-K3 

183  DO  190  1-1.6 
190  YR( I )— 0.  O 
X-XX 

YH  < 1 ) — DFNS 

CALL  JE1  (  YH.  UR.  QINIT.  DIAJET.  ROA, KK1,  KK2,  KK3,  ALOC, 3L0C,  DC  > 

IF  (YHd  ).  OT.  O.  95-DENS)  YR <  1  )-0.  95*DENS 

DO  162  1-1.6 

TE( I ) -0. 0 

FK (I )  — 0.  O 

Y(l,  I)-0. 0 

Y(2.  I  >-0.  0 

Y(3,  I)-0.  0 

Y(4. I)-0. 0 

F(  1,  I)-0.  0 

F(2,  I)-0.  0 

F(3,  I)-0.  0 

162  YN8( I )— 0.  0 
EPS-0.  0000000001 
COUNT -0 

IF  (KK2.NE.0)  H-2.  5*HH*( 1.  O-(DENS-ROA) /R0A*KK2)*( (ABS(YR(3> > 
1  (TRDdKM,  l)-**2.  0))**0.  5)/<  (U1NF+U2NF)**1.  5) 

IF  (KK2  EO.  0)  H-HH 
DO  163  U*l»  M 
TE  ( J )  -0.  0 

163  Y(4.  U)-YR(U) 

165  IF  (RUN0fe(N,  YR.  FR,  X,  H).  NE.  1)  00  TO  166 
CA*  L  RHS(  YR.  YRS) 

DO  164  K-1.4 

164  FR(K)-YRS(K) 

FR ( 5 ) -COS ( YR ( 4 ) ) 

FR(6)-SIN(YH(4) ) 

CO  TO  165 

166  COUNT-COUNI ♦! 


ISUB-4-C0UNI 
DO  167  J-l.M 

167  YdSUB,  J)-YR(J) 

CAI  L  RHS  (YR, YRS) 

DO  168  K-l,  4 

168  FdSUB, K)-YNS(K) 

FdSUB.  5>«C0S(YR(4) ) 

FdSUB,  6)-SIN(YR(4)  > 

169  CONTINUE 

IF  (COUNI.  LE.  3)  00  TO  187 

IF  (ABS( Y( 1/  1 )  ).  LT.  DENS/3.  0)  H-AMAX1 (HH.  H) 

IF  <  (DENS-R0A)+KK2.  OT.  0.  0.  AND.  Y<  1.  1).  OT.  DENS)  GO  TO  181 
IF  ( ( DENS-ROA ) *KK2.  OT.  0.  0.  AND.  Y(l.  1  >.  LT.  0.  0)  00  TO  181 
CO  TO  182 

181  KKl-1 
KK2-0 

00  TO  183 

182  If  (Yd,  5).  CE.  XOSS)  00  TO  186 
187  IF  (CQUNI.LT.  3»  00  TO  165 

171  M-HAMINO(N.  Y,  F,  X,  H.  TE) 

DO  189  K-l,  4 

185  YR(K)»Y(1,K) 

CAI  L  RHS(YK,  YR8) 

DO  172  K-1.4 

172  F(1,K)-YRS(K> 

F( 1,  5)-C0S(Y( 1,4) > 

F(l. 6)-SIN(Y(l,  4) ) 

IF  (M.  EQ.  1)  00  TO  171 
COUNT-COUNI ♦1 
00  TO  169 

186  IF  (ZaSS.  EQ.  -1.  0)  ZZQB8~Y<t,6> 

IF  (ZOBS.  EO. -1.  O)  00  TO  170 
ZZ0B8-Z0BS 

1 70  C00M1 -EXP ( - ( ( YOBS-ALOC ) * ( YOBS-ALOC >  +  ( ZZ03S+Y ( 1 , 6  > ) * ( Z ZOBS+Y (1 , 6  > 
1 ) >/( (LAM*LAH)*((Y(1,  2) )*(Y(1,  2) ) ) ) ) 

C00M2-EXP  ( -  (  (  YOBS-WC+ALOC  >•*  (  YOBS-WC+ALOC  >  +  (  Z ZOBS+Y  d  ,  6  >  )  *  (  ZZOBS+ 
1 Y ( 1,  6)  ) )/( (LAM*LAM>*(  (Y(l,  2)  >*(Yd,  2) )  >  > ) 

C00M3-EXP ( - ( ( YOBS-ALOC ) * ( YOBS-ALOC )  +  ( Z ZOBS-2.  0*DC-Y (1 ,  6  > ) * 

1  (  ZZ08S-2  0*DC-Y(  1,  6) ) )  /  ( ( LAM*LAM )  *  ( (Yd,2>>*(Y(l,2>>>>> 

C00M4-EXP ( -( ( YOBS+WC+ALOC  > ■* ( Y08S+WC+ALQC > ♦ ( Z ZOBS+Y (1 , 6 ) ) * ( Z ZOBS+ 
1  Yd,  6)  >  >/((LAS1*LAM)*((Y(l,  2)  )*(Y(1, 2) ) )  )  > 

C00M5-EXP ( - ( ( YOBS-ALOC )  +  ( YOBS-ALOC )  +  ( Z  ZOBS-Y (1 , 6 ) ) * ( Z  ZOBS- 
l Y ( 1 .  6)  > )/( (LAM*LAM>*(  (Yd,  2)  )*(Y(  1,  2> ) )  > ) 

C  OOM -C  OHM l + C Q0M2+C 00M3+C 00M4+C00M9 
CONVNP-Yd,  1 )  *COOM 
NROOTS-NRCOTS+ 1 

IF  (NS  I  ON.  EQ.  1 )  TROdKN.  1  >— TRDdKM.  1 ) 

It-  (NKOOTS.EQ.NRTJ)  00  TO  179 
180  IWI-0 

IF  (INF. LT. 1)  00  TO  176 


****«■*#■**•*  +♦*»**■##****«  ********* 

CAI  CULATfc  THE  CONIRIBUTION  TO  THE  CONCENTRATION  OF  ALL 
THfc  APPLICABLE  NEAR  FIELDS. 

179  NVALU-IVNF 
IAQQ-0 

TPII  I-TJ(NRTJ-NVALU)  /TPER 
199  IF  (Tflll.OT.  1.0)  IAQQ-IAQQ+i 
IF  (TIIII.  OT.  1.0)  TMI I-TMI  I-i.  0 
IF  (TMI  I.  OT.  1.  0)  00  TO  199 
IF  (TIIII.  LT.  1.  0/6.  0)  IKH-1 


nononn 


IF  (TMII.  LT.  1.0/3.  0.  AND.  TMII.  GE.  1.  0/6.  0>  IKM-2 

IF  (TMII.  LT.  1.  0/2.  0.  AND.  TMII.  GE.  1.  0/3.  0)  IKM-3 

IF  (TMII.  LT.  2.  0/3.  0.  AND.  TMII.  OE.  1.  0/2.  0)  IKM-4 

Ih  (TMII.  LT.  9.  0/6.  0.  AND.  TMII.  OE.  2.  0/3.  0)  IKM-5 

IF  (TMII.  CE.  9.  0/6.  0)  IKM-6 
IZX-NRTJ-NVALU 
UlJl-TRD(IKM,  1) 

U I J2-U 1 NF  ♦ U2WF*S I N ( 6.  2032* ( T J ( I Z  X ) +ALFANF ) / TPER  > 

IF  (ARS(UTU1 >.  OE.  ASS(UTJ2) )  UU-UTJ1 
IF  (ARS(UTJl).  LT.  A3S(U1J2>>  UIJ-UTJ2 
U8AR J-A3S ( XOBS ) / ( T I MEE-T J ( I Z  X ) ) 

CCNNl-S-O.  0 
V£LO^ABS(TRD(IKM.  1 ) ) 

CALL  COE*  (VbLO,  EYCOEF.  EZCOEF.  DC,  WC,  TPER,  EXNF,  EYNF.  EZNF. 
1EYIF,  EZIF,  EXFF) 

XXX03-A8S(X0SS+TRDdKM«  4) ) +TJPR ( IZX,  1) 

ZZOBS-ZZO(IKM) 

Fl-12.  9664*XXX0B*( (EYNF*EZNF)**0.  9>* ( A3S(UTJ > ) / (MASS*UBAR J > 
F22-1.  O/Fl 
DO  1 74  1-1,  9 

CNNFS-EXP ( - ( ( U3ARJ* ( ( YOBS-LOC (I,  1 )  >* ( YOBS-LOC ( 1 ,  1 )>))/( 4.  0* 
1XXX03*EYNF) )-( (UBARJ*( ( ZZ03S-L0C (1,2) >*( ZZOBS-LOC (1,2)) ) )/ 
2(4. 0*XXX08*EZNF> ) ) 

1 74  CONN* S-C ON N* S*C NNFS 

C0NNFS-C0NN*S*F22*EXP (-KNF*XXXOB/UBAR J  > 

C  ONNF-C  ONNP +C ONNFS 

KROOTS-NROOTS+1 

IF  (NKOOTS.  EQ.  NRTJ)  00  TO  179 

NVALU-NVALU+1 

IF  (  (NVAL'J-IVNF+1).  LE.  INF)  00  TO  175 
CO  TO  176 

*■*■*-*•*-*-****•*■*«  »«*-»******-»*«-»*»***-» 


CAI  CULATE  THE  CONTRIBUTION  TO  THE  CONCENTRATION  OF  ALL 
THE  APPLICARLE  INTERMEDIATE  FIELDS. 

176  NVALU- I VNF+INF 
178  IZX-NRTJ-NVALU 
C  IZX-NUM3ER  OF  CONTRIBUTING  INI ERMEDI ATE  FIELD  MODELS 
I IAQ«0 

TTM I »T J ( NR T J-NV ALU ) / TPER 
188  IF  (TTMI.  OT.  1.  0)  IIAQ-IIAO-M 
IF  (TTMI.  OT.  1.  0)  TTMI-TTMI-1.  O 
IF  (TTMI.  OT.  1.  0)  00  TO  188 
IF  (TTMI.  LT.  1.  0/6.  0)  IIKM-1 

IF  (TTMI.  LT.  1. 0/3.  0.  ANO.  TTMI.  OE.  1.  0/6  0)  IIKM-2 

IF  (TTMI.  LT.  1.  0/2.  0.  AND.  TTMI.  OE.  1.  0/3.  0)  IIKM-3 

IF  (TTMI.  LT.  2.  0/3.  0.  AND.  TTMI.  OE.  1.  0/2.  0)  IIKM-4 

I*  (TTMI.  LT.  5.  0/6.  0.  ANO.  TTMI.  OE.  2.  0/3.  0)  IIKM-5 

IF  (TTMI.  OT.  9.  0/6.  0)  IIKM-6 
Ul J-TKD( IIKM,  1 ) 

U3ARJ-A3S(X0BS)/(TIHEE-TJ(NRTJ-NVALU) ) 

CNNIFS-O. 0 
CNNIF-O.  0 

CAI  L  C0£F(A83(TRD( I IKM, 1 >), EYCOEF,  EZCOEF,  DC,  WC,  TPER,  EXNF,  EYNF, 
1EZNF, EXIF,  EYIF,  EXFF) 

XXDIS-THDdIKM, 7)+A8S(XQBS)+TJPR( IZX, 1) 

ZZ03S~ZZ0( I IKM) 

DO  177  1-1.20 
BII-I 

F1-(WC**2.  0)*U8ARJ/((BII**2>*9.  8696*EYIF*XXDIS > 

IF  (FI.  LE.  0.  012)  F2-0.  0 
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o  o  o  n  n  o  o  non  non 


IF  <F1.  OT.  0.  012)  F2-EXP(-1.  0/F1) 

CNNIP8»(C0S<BII*3.  1416*<AL0C+<WC/2.  0) ) /WC > >*F2 
1*<C0S<BII*3.  1416*<  YOSS+T WC/2.  0) >/WC> ) 

177  CNNIF-CNNIF+CNNIFS 

CNNIF-l.  0+<2.  0*CNNIF> 

F3-UC-*DC*<ARS<UTJ) ) /MASS 

EX3AR-£XIF-*<  1.  0+<  (EZNF*TPER/(DC**2.  0)  )/<2.  0*<2.  4674+<  <EZNF*TPER/ 

1  <0C**2.  0)  )  « *2.  0>*-*0.  5) )  > ) 

F4-3.  3449«WC*DC*<  ( XXDIS-* 

1UBARJ>**0.  25>*(£XBAR**0.  23>*<ABS(C0S<6.  2S32/TPER*<TJ<NRTJ-NVALU>+ 
2ALFANr  ) )  >*»0.  3)/ (2.  6*MA3S*<TPER*+0.  5)  ) 

F3»2.  34*WC-*DC*  <  X  XD I S 

1*»0.  3333>*<EXBAR**0.  3333)*<ABS(SIN<6.  2332/TPER*(TJ(NRTU-NVALU>+ 
2ALFANF) >  >«*0.  3)/(l.  86*MASS* ( TPER**0.  6667)  > 

Ih  (F3.  ©E.  F4.  AND.  F3.  OE.  F3)  F22-1.  0/F3 

IF  <F4.  OE.  F3.  AND.  F4.  OE.  F3)  F22-1.  0/F4 

IF  (F3.  OE.  F3.  AND.  F3.  OE.  F4>  F22-1.0/F3 

C0NIF*C0NIF+CNNIF*F22»EXP<-KIF*XXDIS/UBARJ) 

NROOTS-NROOTS+1 

IF  (NNOOTS.  EQ.  NRTJ)  00  TO  179 

NVALU-NVALU+1 

00  TO  178 

NOW  SUM  ALL  THE  CONTRIBUTIONS 

1 79  CONCEM-CONVNF+CONNF+CON I F 
330  WRITE (3, 239)  TIMEE.  CCNCEN.  ZZOBS 
CONVNF-O.  0 
CONNF-O.  0 
CONIF-O.  O 
T I MEE-T I MEE+T I M I NC 
IF  (TIMFE.  LE.  TIMMAX)  00  TO  160 

RETURN  TO  COMPUTE  CONCENTRATION  FOR  THE  NEXT  TIME 
00  TO  990 

"00  TO  9V0"  ALLOWS  THE  USER  TO  CHANOE  OBSERVATION  POINT 
BUT  THE  SAM*"  TIME  SPAN  WILL  BE  USED 


FORMATS  FOR  INPUT  AND  OUTPUT  STATEMENTS. 

99  FORMAT (6X« 13) 

100  F0RMAT<2X,  FIO.  4.  4X,  FIO.  6) 

101  FORMAT <4X«  F9.  3.  7Xi  F9.  3) 

102  F0RMAT<6X,  F12.  4.  9X,F12.  4) 

111  FORMAT <4AS) 

114  FORMAT  <  7X «  F9.  4 ) 

113  FORMAT (7X«  AS) 

117  FORMAT ( 6 X»  Ell.  4,  9X.  F10.  1.  9X.  FlO.  1/7X ,  FIO.  t,  7X.  F10.  1 ) 

118  FORMAT <3X i  F9.  3-  3X.  F9.  3) 

120  FORMAT ( 3X.  FIO.  1,  7X,  FIO.  3.  7X,  FlO.  3/3X,  FIO.  3,  7X,  FIO.  3) 

121  FORMAT < 7X«  FIO.  3.  9X.  FIO.  3,  7X,F10.  3) 

122  FORMAT ( 3X.  FIO.  2.  7X,  FIO.  2.  9X,  FlO.  4/3X,  12,  3X,  12,  5X,  12) 

123  FORMAT (3X,  12) 

204  FORMAT < 6 X,  30H0  INITIAL  DOWNSTREAM  DISTANCE  TO  FIRST  PRINT 
10UT  -  , F12.  4, 2H  M/6X,  34H0  INCREMENTAL  DOWNSTREAM  DISTANCE 
2  BETWEEN  PRINTOUTS  -  , F12.  4, 2H  M) 

203  FORMAT ( 6 X,  32H0  CHEMICAL  DISCHARGE  FLOWRATE  ■  , E11.4, 7H  M**3/S 
1/6X. 17H0  TIDAL  PERIOD  -  . F14.  4, 8H  SECONDS 
2/6X,  24H0  TOTAL  TIME  OF  SPILL  ■  , F14.  4, 8H  SECONDS 
3/6X, SOHO  TIME  INCREMENT  FOR  CONCENTRATION  CALCULATIONS 


4  •  , FI 4. 4,  SH  SECONDS 

3/6X,38H0  MAXIMUM  TIME  FOR  SPILL  EVALUATION  =  , F14. 4, 8H  SECONDS 
6/6X.2iH0  WIDTH  OF  CHANNFL  -  , F9  3, 2H  M 
7/6*,21H0  DEPTH  OF  CHANNEL  -  . F9.  3,  2H  M) 

206  FORMAT ( 6X,  39H0  DISTANCE  FROM  THE  CHANNEL  CENTERLINE  TO  THE  SPILL 
1  0RICIN/8X. 21HIN  THE  Y  DIRECTION  -  ,  FIO.  3,  2H  M 
2/6X. 53H0  DISTANCE  FROM  THE  CHANNEL  SURFACE  TO  THE  SPILL  ORIGIN 
3/8X.21HIN  THE  Z  DIRECTION  -  , F10.  3.  2H  M) 

212  FORMAT (6X<  31H0  MEAN  VELOCITY  OF  THE  RIVER  -  , F10.  2,  4H  M/S/6X 
1-32H0  MAXIMUM  FLUCTUATION  VELOCITY  OF  THE  TIDAL  RIVER  -  ,  FIO.  2,  4H 
2M/S/6X,  36li0  PHASE  SHIFT  OF  THE  TIDAL  PERIOD  «  .  F10.  4.  8H  SECONDS 
3/6X.31H0  ORIENTATION  OF  THE  SPILL  JET. ) 

235  FORMAT <//4X«  46HDIFFUSIQN  FACTORS  FOR  THE  NEAR  FIELD  EQUATION:/ 
1/7X.21H0  EY  COEFFICIENT  -  , FIO.  5/7X, 21H0  EZ  COEFFICIENT  =  ,  F10 
2. 5//) 

208  FORMAT (2X<  10HTEST  NO.  :  ,  A8> 

209  FORMAT! /2X,  24H*- LOW  FIELD  DESCRIPTION:  .4A8/> 

210  FORMAT !6X.  29H0  CHANNEL  AVERAGE  VELOCITY  -  , 

1F8.  4.  4H  M/S/6X,  18H0  PLUME  DENSITY  -  , 

2F12.  5.  8H  KQ/M**3/6X,  32H0  PLUME  CHARACTERISTIC  RADIUS  *  ,  F12.  5.  2H 
3  M/6X.44H0  PLUME  VELOCITY  (STREAM  SPEED  COMPONENT)  -  ,  F12.  5.  4H  M/S 
4/6X,43H0  PLUME  ANOLE  !WITH  RESPECT  TO  HORIZONTAL)  -  ,  F12.  5.  8H  RADI 
5ANS/6X,  37H0  X  ! HORIZONTAL  DISTANCE  FROM  VENT)  -  ,  F12.  5,  2H 
6M/6X.36H0  Z  (VERTICAL  DEPTH  FROM  SURFACE)  -  ,  F12.  3, 2H  M//> 

216  FORMAT! //4X,  18HINITIAL  CONDITIONS/) 

217  FORMAT! //4X, 16HFINAL  CONDITIONS/) 

211  FORMAT! //3X,  38HVERY  NEAR  FIELD  PLUME  CENTERLINE  PATH: 

1//7X.  1HX.  14X,  IHZi  10X,  17HC0NCENTRATIQN(CL> /4X,  8H(METERS) ,  7X, 

28H! METERS),  10X.  9H!KQ/M*-*3>/> 

234  FORMAT (2X,  F12.  4,  3X,  F12.  4,  7X.E11.  4) 

236  FORMAT ( 6X,  1SH0  WATER  DENSITY  -  ,  F9.  3,  8H  KG/M**3/6X, 

127H0  CHEMICAL  SPILL  DENSITY  -  .  F9.  3,  8H  KC/M**3 
3/6X,  27H0  INITIAL  PLUME  DIAMETER  -  ,  F9.  4,  3H  CM) 

214  FORMAT (30H  NUMERICAL  INTEGRATION  DATA//7X, 19H0  STARTING 

1  POINT-, F10.  4/7X,  22H0  INITIAL  STEP  SIZE-, F10.  6/7X,  20H0  FINAL 

2  STEP  SIZE-, FIO.  6// > 

213  FORMAT (/2X.34H JET  DIRECTION  CHANGED  FOR  SEGMENT  ,I2/> 

225  FORMAT! X, 27HALFA3  *  TURBULENCE  LEVEL  -  , FIO.  3) 

226  FORMAT (1HI) 

227  FORMAT ( 2X,  33HTURBULENT  DIFFUSION  COEFFICIENTS: //7X, 

17MEXNF  «  ,  Ell.  4/7X,  7HEYNF  -  ,  El  1.  4/7X,  7HEZNF  -  ,  EU.4//7X, 

27HEXIF  -  .  Ell.  4/7X,  7HEYIF  -  ,  El  1 .  4//7X,  7HEXFF  -  ,EU.4//> 

232  FORMAT! /2X, 63HTUR3ULENCE  FACTOR  MULTIPLIED  BY  ALFA  3  IS  ZERO.  RUN 
1 TERMINATED.  ) 

218  FORMAT!  1H1,  /2X.  UHTIDAL  RIVER/) 

237  FORMAT! 19X, FIO.  1) 

238  FORMAT! 1H1. 6X. 38HC0NCEN I  RATION  AT  THE  OBSERVATION  POINT 

1//6X,  31HIHE  DOWNSTREAM  DISTANCE  TO  THE  OBSERVATION  POINT  -  , F12 
2.  3.  2H  M//6X,  37HTHE  TRANSVERSE  DISTANCE  FROM  THE  CENTER  OF  THE 

3  CHANNEL  T0/6X,  24HTHE  OBSERVATION  POINT  -  , F12.  3, 2H  M//6X, 

448HTHt  OBSERVATION  POINI  IS  AT  THE  PLUME  CENTERLINE 
3////23X,  4HTIME,  14X, 13HC0NCENTRATI0N,  6X,  4HZ0BS/ 

621 X,  9H ( SECONDS ) ,  13X, 9H(KQ/M**3> , 6X, 9H( METERS) / ) 

239  FORMAT ( 19X,  FIO.  1,  12X,  Ell.  4,  3X,  F12.  3) 

240  FORMAT! IH1.  6X.  38HCCNCEN I  RATION  AT  THE  OBSERVATION  POINT 
1//6X.31HIHE  DOWMSTREAM  DISTANCE  TO  THE  OBSERVATION  POINT  -  , F12 
2. 3, 2H  M//6X,  37HTHE  TRANSVERSE  DISTANCE  FROM  THE  CENTER  OF  THE 

3  CHANNEL  T0/6X.  24HTHE  OBSERVATION  POINT  »  , F12.  3, 2H  M 
4////23X. 4HI IME, 14X, 13HC0NCENTRATI0N, 6X, 4HZ0BS/ 

321X, 9H( SECONDS) ,  13X,  9H!KQ/M**3> , 6X, 8H( METERS) / ) 

248  FORMAT! 1H1 > 

230  FORMAT !/3X,  33: !NCYC  EXCEEDS  300.  RUN  TERMINATED.  > 

231  FORMAT (6X,  26H  HORIZONTAL  DOWNSTREAM) 
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252  FORMAT < 6X,  24H 

253  FORMAT (6X.20H 

254  FORMAT < 6X.  22H 

255  FORMAT (6X.39H 

256  FORMAT < 6X.  33H 


HORIZONTAL  UPSTREAM) 

VERTICAL  UPWARD) 

VERTICAL  DOWNWARD) 

HORIZONTAL  TRANSVERSE  TO  THE  RIGHT) 
HORIZONTAL  TRANSVERSE  TO  THE  LEFT) 


270  FORMAT (1H1«2X*  64HTHE  TRD  MATRIX  CONTAINS  THE  MATCHING  INFORMATION 

1  FOR  THE  VARI0U5/2X.  lSHTIDAL  SEGMENTS.  //4X.  31HTRD( I>  1 )  *  RIVER 

2  VELOCITY  <M/S)//4X,63HIRD<I,2>  -  THE  CONVERSION  POINT  FROM  THE 

3  VERY  NEAR  FIFLD  TO  THE/13X, 42HNEAR  FIELD  IN  THE  STREAMWISE 

4  DIRECTION  <M)//4X, S5HTRD< I, 3)  -  THE  CENTERLINE  CONCENTRATION  AT 

5  THE  POINT  0F/15X,  47HC0NVERSI0N  FROM  THE  VERY  NEAR  FIELD  TO  THc. 

6  NEAR/15X,  15HFIELD  <KC/M**3 > //4X  60HTRD < I , 4 >  -  THE  ADJUSTMENT 

7  IN  THE  X  DIRECTION  AT  THE  POINT  0F/I5X.  53HC0NVERSI0N  FROM  THE 

8  VERY  NEAR  FIELD  TO  ri£  NEAR  FIELD/ 1 5Xi  9HM0DEL  <M>/> 

272  FORMAT <4X.  _ „  „ 

171HTRD<I.5)  -  THE  .UNVEKSION  POINT  FROM  THE  NEAR  FIELD  TO 
2  THE  INTERMEDIATE/ 1 5X. 37HFIELD  IN  THE  STREAMWISE  DIRECTION  (M) 
3//4X> 52HTR0< I< 6)  *  THE  AVERAGE  CONCENTRATION  AT  THE  POINT  OF 
4/13X< 37HC0NVERSI0N  FROM  THE  NEAR  FIELD  TO  THE/ 15X. 28HINTERM6D1ATE 

5  FIELD  <KQ/M**3) //4X»  60HTR£><  I«  7)  “  THE  ADJUSTMENT  IN  THE  X 

6  DIRECTION  AT  THE  POINT  0F/15X,  56HC0NVERSI0N  FROM  THE  NEAR  FIELD 

7  TO  THE  INTERMEDIATE  FIELD/ 1 5X. 9HM0DEL  (X)///X,76H  TRD(I.l) 

8  TRD<  I  j  2)  TRD<  I  >  3 )  TRD<I,4>  TRD(I.5>  TRDd.6) 

9  TRD< 1 1  7)/) 

271  FORMAT (  7  <  X  •  E10.  3)/) 

1000  RETURN 
END 
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SUBROUTINE  INSTAN 


INHUT  VARIABLES: 


H 

K1 


ROA 
DENS 
ACLASS(J) 
TESTNO 
TPER 
WC 
DC 
Al  OC 

BLOC 

EYCOEF 

EZCOEF 

VNUM 

K2 


UlNf= 

U2NF 

ALFANF 

HEVAP 

NOBS 

XOB 

YOB 

ZOB 

TLOW 

TDELT 

NSTEP 

SMASS 


INIEGRATION  STEP  SIZE.  M 

PARAMETER  TO  ALLOW  DEFAULT  VALUE  OF  H  TO  BE  USED. 

Kl-1  RfcQURES  USER  INPUT.  Kl-2  USES  DEFAULT  VALUE 

AN*>  USER  INPUT  IS  NOT  NEEDED 

WATER  DENSITY.  KC/M**3 

CHEMICAL  SPILL  DENSITY.  KG/M#*3 

FLOW  REGIME  DESCRIPTION 

EXPER I MENIAL  TEST  NUMBER 

TIDAL  PERIOD.  S 

WIDTH  OF  THE  CHANNEL.  M 

DEPTH  OF  THE  CHANNEL.  M 

DISTANCE  IN  THE  Y  DIRECTION  FROM  THE  CHANNEL  CENTERLINE  TO 
THH  SPILL  ORIGIN.  M 

VERTICAL  DISTANCE  DOWN  FROM  THE  WATER  SURFACE  TO 
THE  SPILL  ORIGIN.  M 

Y  DIFFUSION  COEFFICIENT  FOR  THE  NEAR  FIELD  MODEL 
Z  DIFFUSION  COEFFICIENT  FOR  THE  NEAR  FIELD  MODEL 
RCUOHNFSS  FACTOR  FOR  FRICTION  VELOCITY 
PARAME1ER  TO  ALLOW  DEFAULT  VALUES  FOR  EYCOEF, EZCOEF, 

AND  VNUM  TO  BE  USED.  K2-1  ALLOWS  USER  INPUT. 

K2-2  USES  DEFAULT  VALUES  AND  USER  INPUT  IS  NOT  NEEDED 
MEAN  RIVER  VELOCITY,  M/S 

MAXIMUM  FLUCTUATING  VELOCITY  OF  A  TIDAL  RIVER,  M/S 
PHASE  SHIFT  ANGLE  FOR  THE  TIDAL  RIVER  PERIOD,  SECONDS 
EVAPORATION  MASS  TRANSFER  COEFFICIENT,  M/S 
NUMHER  OF  SETS  OF  X.Y, ANO  Z  (NUMBER  OF  OBSERVATION  POINTS) 
D0NW8TREAM  DISTANCE  FROM  THE  LOCATION  OF  THE  INSTANTANEOUS 
SPILL  TO  THE  OBSERVATION  POINT.  M 

DISTANCE  FROM  THE  CENIER  OF  THE  CHANNEL  TO  THE  OBSERVATION 

POINT  IN  THE  TRANSVERSE  DIRECTION,  M 

DISTANCE  FROM  THE  CHANNEL  SURFACE  TO  THE  OBSERVATION 

POINT  IN  THE  VERTICAL  DIRECTION.  M 

STARTING  OBSERVATION  TIME  ,  S 

TIh*-  STEP  ,  S 

NUMHER  OF  DATA  POINTS  FOR  EACH  TIME  STEP 
TOTAL  MASS  SPILLED  ,  KG 


DIMENSIONS: 


DOUBLE  PRECISION  ACLASS < 4 ) , TESTNO ( 1 ) 

INlEGER*4  NSTEP 
REAL  MEVAP 

DIMENSION  XOB ( 30 ) ,  YOB ( 30 ) ,  ZOBOO),  TL0W(30),  TDELT (30),  NSTEP (30), 
*VNF(3>,  YVNF (3) 

DIMENSION  PS (3,  9),  XLSO) 

COMMON  /ACT/EXCO.  EYCO,  EZCO,  EEX, UEEX. PI, ALOC, BLOC, DC, 

IWC,  SMASS.  HEVAP,  DENS.  ROA,  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELSI/UINF, U2NF, TPER,  ALFANF, TLV, BETA, AKT,  UPRI,  RH,  TMVNF, 
♦IDEC,  RVHF,  MFVAP 

OPEN (UNIT— 2,  NAME*  'SYO:  IN8TIN.  OATi  0  READONLY,  TYPE-  'OLD  '  > 

DATA  PI/3. 1419927/ 

OC-9.  80669 
OK-O.  0 


READ  IN  PARAMETERS  AND  INITIAL  CONDITIONS. 


READ (2.  430)  K1 
READ!2,  418)  WC.  DC 
H-0.  1-*DC 

IF  IK1.EQ.  2)  00  TO  6000 
READ <2,  400)  H 
6000  READ <2,  401 )  ROA.  DENS 

READ<2>  411 >  (ACLASS(J), J-l.  4) 

READ <2/  415)  TESTNO(l) 

READ ! 2 . 420 )  ALOC . BLOC 
READ <2. 430)  K2 
EYCOEF -0.  6 
EZCOEF -0.  067 
VNUM-O.  025 

IF  !K2.  EQ.  2)  00  TO  6001 
R£AD<2,  421 )  EYCOEF,  EZCOEF,  VNUM 
6001  READ<2,  422)  U1NF. U2NF, ALFANF.  TPER 
READ (2/ 429)  NOBS 
DO  426  INT-l.NOBS 

READ <2. 427)  XOB! INT), YOB(INT),  ZOB(INT) 

READ <2, 428)  TLOW! INT) ,  TDELT! INT) ,  NSTEP < I NT) 

426  CONTINUE 

READ ( 2, 429 )  SMASS.  HEVAP 
C 

C  PRINT  PARAMETERS.  HEADINGS  AND  INITIAL  CONDITIONS 
C 

URITEI3,  917) 

L'N  I TE  ( 3.  908 )  TESTNO  ( 1 ) 

URITEO,  909)  !ACLASS!J),  U-l,  4) 

UNITE (3. 936)  ROA,  DENS 

WRITEO,  909)  WC,  DC 

WRITE! 3, 906 )  ALOC .  BLOC 

WRITEO,  912)  U1NF,  U2NF ,  ALFANF,  TPER 

WRITEO.  964)  SMASS,  HEVAP,  VNUM 

WRITEO,  939)  EYCOEF.  EZCOEF 

WRITEO.  914)  H 

URITEO.  960)  NOBS 

URITEO.  961) 

DO  962  I NT- 1,  NOBS 

WRITEO.  963)  XOB! INT),  YOB! INT).  ZOB  (  INT) .  TL0W(  INT) ,  TDELT(  INT) , 
INSTEP! INI ) 

962  CONTINUE 
C 

C  FORMAT  STATEMENTS  FOR  INPUT  AND  OUTPUT  STATEMENTS 
C 

400  FORMATOX,  F10.  6) 

401  F0RMAT!4X,  F9.  3.  7X,  F9.  3) 

411  FORMAT !4A8) 

419  FORMAT ! 7X,  A8) 

418  FORMATOX.  F9.  3,  9X,  F9.  3) 

420  FORMAT ! 9X, F10.  3,  7X,  F10.  3 ) 

421  FORMATOX.  F10.  9,  9X.  F10.  9,  7X,  F10.  9) 

422  FORMATOX.  F8.  3,  7X.F8.  2.  9X.  F8.  2,  7X.  F10.  1) 

429  FORMAT! 9X,  13/) 

427  F0RMAT!4X,  F12.  4,  2(6X,  F12. 4) ) 

428  FORMAT! 9X.  F10.  2,  8X,  F10.  2, 8X,  16) 

429  FORMAT (6X.  FtO.  4.  8X.  FIO.  4) 

430  FORMAT !3X.  12) 

909  F0RMAT!6X,  21H0  WIDTH  OF  CHANNEL  -  , F9  3, 2H  M 
1/6X.21H0  DEPTH  OF  CHANNEL  -  ,  F9.  3,  2H  M) 

906  FORMAT !6X,  SOHO  DISTANCE  FROM  THE  CHANNEL  CENTERLINE  TO  THE  SPILL  0 
1RI0IN  IN  THF  Y  DIRECTION  -  ,  FIO.  3, 2H  M 

2/6X.80H0  DISTANCE  DOWN  FROM  THE  WATER  SURFACE  TO  THE  SPILL 
3  OR  1 0 1 N  IN  THE  Z  DIRECTION  -  ,  FIO.  3, 2H  M) 
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508  FORMAT <2X.  10HTEST  NO.  :A8> 

509  FORMAT !/2X,24HFL0W  FIELD  DESCRIPTION:  ,4A8/> 

512  FORMAT ! 6X.  31H0  MEAN  VELOCITY  OF  THE  RIVER  -  <  F9.  3,  4H  M/S/6X, 

152H0  MAXIMUM  FLUCTUATION  VELOCITY  OF  THE  TIDAL  RIVER  -  ,  F9.  3,  4H 
2  M/S/6X.36H0  PHASE  SHIFT  OF  THE  TIDAL  PERIOD  -  ,  F10.  4,  8H  SEC ON US 
3/6X. 17H0  TIDAL  PERIOD  -  «F14.  4.  8H  SECONDS) 

514  FORMAT ! 6X,  36H0  NUMERICAL  INTEGRATION  STEP  SIZE  »  ,  F10.  6. 

1  SH  SECONDS  > 

517  FORMAT! 1H1.  /2X,  25H INSTANTANEOUS  SPILL  MODEL/) 

526  FORMAT < 1H1. 2X. 76HC0NCENTRATI0N  MATCHING  DATA  FOR  POINTS  OF 
1  CONVERSION  FOR  THE  VARIOUS  MODELS:/) 

527  FORMAT! //4X,  33HTURBULENT  DIFFUSION  COEFFICIENTS. //7X. 

1  1 1 HO  EXCO  ■  .Ell. 4/7X.  11H0  EYCO  «  .  El  1 .  4/7X, 

2  UHO  EZCO  -  .Ell.  4) 

535  FORMAT! //4X, 46HDIFFUSI0N  FACTORS  FOR  THE  NEAR  FIELD  EQUATION:/ 
1/7X.21H0  EY  COEFFICIENT  -  , F10.  5/7X,  21H0  EZ  COEFFICIENT  -  ,  F10 
2.  5//) 

536  FORMAT ( 6X,  18H0  WATER  DENSITY  ■  ,  F9.  3,  8H  KG/M**3/6X, 

127H0  CHEMICAL  SPILL  DENSITY  -  .  F9.  3,  BH  KG/M**3> 

560  FORMAT !6X.  64  HO  NUMBER  OF  SETS  OF  X,  Y.  AND  Z  ! NUMBER  OF 
1  OBSERVATION  POINTS)  -  .13) 

561  FORMAT! //6X. 51H0BSERVATI0N  INFORMATION  FOR  AN  INSTANTANEOUS 
1  SPILL: //8X. 1HX,  13X.  1HY, 13X.  1HZ,  9X,  9HINIT  TIME. 4X, 

28HTIKE  INC.3X.  13HNUMBER  OF  INC/5X.  8H! METERS) .  6X.  8H( METERS ) . 

36X. 8H !  MET ERS ) . 6X > 9H ! SECONDS ),  3X,  9H( SECONOS ) / ) 

563  FORMAT !3X.  F12.  4.  2!2X.  F12.  4).  3X,  F10.  2,  2X,  F10  2.  2X,  16) 

564  FORMAT !6X.  SOHO  TOTAL  SPILLED  MASS  FOR  AN  I NSTAN I ANEOUS  SPILL 

1  -  . F10.  4. 3H  KG/6X. 42H0  EVAPORATION  MASS  TRANSFER  COEFFICIENT 

2  -  .  F10.  4.  4H  M/S/6X.29H0  CHANNEL  ROUGHNESS  FACTOR  -  . F10.  5) 

C 

C  CAI  CULATE  CONSTANTS 

C 

RH-DC+WC  / !  2.  0*DC+WC  ) 

UP81-A8S!U1NF+SIN!2.  0*PI*ALFANF/TPER >  > 

UFS2-!UlNF++2+U2NF**2>*+0.  5 
IF  !UFS1.  OT.  UF82)  UFS-UFS1 
IF  (UES1.  LE.  UF82)  UFS-UFS2 
UHRI-3.  807+VNUM*UFS/!RH**0.  16666667) 

EXC0EF-EYC0EF*10. 

EXCO=EXCOEF+DC*UPR I 
EYCO=EYCOEF+DC*UPR  I 
EZCO-EZCQEF+DC*UPR  I 
URITEI3. 527)  EXCO.  EYCO. EZCO 
WRITE! 3.  526) 

EEX-5.  93*DC+UPRI 

U£FX»0.  IB-*!  !UPRI»UFS>*«0.  5)*WC**2/RH 

FACT1«EZC0+TPER/DC**2 

FACT2-PI+*2/4. 

FACT3*l.  +FACTl/!2.  *SQRT!FACT2+FACTl**2 >  > 

FACT4-SQRT!UFS*UPRI >*WC**2/RH 
BETA— ASIN!1.  /SORT !FACT2*FACT1 **2+1.  )) 

AKT-FAC  T l /SORT ! FAC  T2+FAC Tl**2) 

EXAVE-5.  93*DC*UPRI*FACT3 
UEXAVE-O.  1S+FACT4*FACT3 
M6VAP-0.  0 
RVNF-O.  0 

VNKO* ( SMASS / ! 2.  0*PI*DENS) >+*! 1.  0/3.  0) 

VNH0»2.  O+VNKO 

SPVEL-1.  30*! (GC*VNH0*AB8! 1.  0-ROA/DENS ) ) *«0.  5) 

IF!VNHO.  LT,  DC.  AND.  !3.  7*UPRI )  .  LT.  8PVEL)00  TO  120 

IF!VNHO.  LT.  DC) 00  TO  115 

VNHO-DC 

VNH0-!SMAS8/!PI*DENS*DC) )*+0.  5 
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IFtVNHO.LT.  (WC/4.  0)  >C0  TO  101 
URITEO.  980) 

980  FORMAT ( //6X,  38HSP ILL  IS  TOO  LARGE  TO  BE  INSTANTANEOUS) 

00  TO  2000 

101  SPVEL-1.  30* ( <GC*DC*A8S( 1.  0-R0A/DENS) >**0.  9) 

IF<  <3.  7*UPRI ).  LT.  SPVED00  TO  120 

****  ********** ********  ***** 

NEUTRAL  BUOYANCY  CASE 

119  IF (DENS. GT.  R0A)G0  TO  117 
BLOC  -  0.  0 

GO  TO  118 

117  BLOC -DC 

118  CCPRI-DENS 
TMVNF-0.  0 

I CASE-2 
00  TO  21 

*  »**  ******  <  *********** 

STANDARD  CASE 

120  IF (DENS.  GT.  R0A)Q0  TO  124 

TVNF-<2.  0*BL0C / ( GC* ( ROA/DENS- 1 .  0) ) >**0.  9 
BLOC-O.  0 
CO  TO  130 

124  TVNF-(2.  0* ( DC-BLOC ) / ( OC*  < 1 .  O-ROA/DENS) ) >**0.  9 
BLOC-DC 
130  VNPRT-0.  0 
TTVNF-TVNF 

CCPRI  -  VNtARtO.  0,  0.  0,  0.  0,  0.  0.  TVNF,  VNRO.  GC,  0.  0,  VNPRT > 

I CASE— 1 

21  CONTINUF 

********** *  ********** 

WRITE (3,  9948) CCPRI 

9948  FORMAT ( /4X.  32HVERY  NEAR  FIELD  CONCENTRATION  -  ,  1PE14.  7, 

18H  K0/M**3) 

COMPUIE  MAXIMUM  ALLOWABLE  TIMfcS  OF  VARIOUS  MODELS 

22  TMAXNF-0.  3*DC**2/EZC0 

IFtTMAXNF.  LT.  <2.  0*TMVNF) )TMAXNF-2.  0*TMVNF 
TMAXIF-0.  3*WC**2/EYC0 

COMPUIE  FIRST  OUESSES  FOR  MATCHING  TIMES  AND  TIME  INCREMENT 

DDTO-.  001*THAXNF 
DDT 1-0.  002*TMAXNF 
DDT2-0.  0009*TMAXIF 
DTO-O.  1 
DT1-0.  1 
DT2-0.  1 

COMPUIE  LOCATIONS  OF  POINT  AND  LINE  SOURCES 

DO  29  1-1.  9 
DO  29  U-l,  9 

POINT  SOURCE  AT  SPILL  GRIOIN  AND  IMAGES 
29  PStI,  J>-0.  0 
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r 


PSd. 1>«AL0C 

PS (3.  1 >-ALOC 

PS (5,  1 >-ALOC 

PS (2.  1 >»WC-ALOC 

PS  (4,  1 )— WC-ALOC 

Il»  ( I  CASE.  EQ.  2)  CO  TO  160 

POINT  SOURCES  TO  ACCOUNt  FOR  GRAVITY  SPREADING 
FIRST,  ASSU.1E  SPILL  DOES  NOT  HIT  EITHER  WALL 

DO  140  1-1,  4 
J-I  +  l 

IF<J.  LT.  4JAVNF-1 

IF < J.  GE.  4)AVNc  —  1 

PS<1,  J)*PSd.  1 )+I*AVNF*RVNF/3.  0 

PS<3,  J)-PSd, J) 

PS<3,  U)«PSd»  J ) 

PS (2,  J)-PS<2,  1 )-I*AVNF*RVNF/3.  0 
PS<4,  J)-PS<4,  1 >-I*AVNF*RVNF/3.  o 
140  CONTINUE 

IF < I DEC.  EO.  1)00  TO  160 

NOW,  CORRECT  FOR  SPILL  HITTING  CLOSEST  WALL 

PSd,  2)«2. *AL0C/3.  +UC/6. 

PS  (2,  2) -3.  -*WC/6.  -2.  *AL0C/3. 

PS<4,  2)— 7.  -*WC/6.  -2.  ALOC/3. 

PSd.  3) -WC/3.  +AL0C/3. 

PS (2,  3) -2.  *WC/3.  -ALOC/3. 

PS(4,  3)— 4.  -*WC/3.  -ALOC/3. 

CO  1 53  N-2,  3 
PS<3,  N)-PSd,N> 

133  PS<3,  N)-PSd.  N) 

IF( IDEC.  EQ.  2)00  TO  160 

NOW,  CORRECT  FOR  SPILL  HITTING  BOTH  WALLS 

PSd.  4) -2.  *AL0C/3.  — WC/6. 

PS(2,  4>-7.  *WC/6.  -2.  *AL0C/3. 

PS<4,  4>— 3.  *WC/6.  -2.  ■♦ALOC/3. 

PSd.  3) -ALOC/3  -WC/3. 

PS (2,  S)-'!.  *WC/3.  -ALOC/3. 

PS <4,  3 ) «-2.  ■♦WC/3  -ALOC/3. 

DO  137  N-2,  3 
PS <3.  N)-PSd.  N) 

137  PS(3.  N)-PSd,  N) 

160  CO.NTINUF 

DO  170  N-l.  3 
XL8<N)-PSd, N) 

170  CONTINUE 

MATCH  NEAR  FIELD  TO  VERY  WEAR  FIELD  MODEL 

TT-O. 0 
XX-O. 0 
YCPRI-ALOC 
ZCPRI-BLOC 

336  CONV-RNEAROX.  YCPRI,  ZCPRI,  TT,  DTO,  PS,  ICASE) 
DCON-CONV/CCPRI 
DCON-ABSd.  -DC ON) 

IFCDCON.  LE.  0.  001 )00  TO  330 
IFtDCON.  LE.  0.  01)00  TO  338 
IFIDCON.  LE.  0.  1)00  TO  339 


O  O  <J 


340  DT0-DT0+DDT0 

CONV-RNEAR(XX,  YCPRI.  ZCPRI,  TT,  DTO,  PS.  ICASE) 

DCON-CONV/CCPRI 

DC0N=A3S( 1.  -OCON) 

IF( DCON.  LE.  0.  001 >00  TO  330 
IF(DCON.  LE.  0.  01)00  TO  338 
IF  (DCON.  LE.  0.  1>00  TO  33* 

CO  TO  340 
339  DTO-DTO-DDTO 
D0T0-DDT0/10. 

341  DTO-DTO+DDTO 

CONV^RNEAR(XX,  YCPRI.  ZCPRI.  TT.  DTO.  PS,  ICASE) 

DCON-CCNV/CCPRI 

DC0N«A8S(1.  -DCON) 

IFtDCON.  LE.  0.  001)00  TO  330 
IF(DCON.  LE.  0.  01)00  TO  338 
00  TO  341 
338  DTO-DTO-DDTO 
DDT0-DDI0/10. 

342  DTO-DTO+DDTO 

C0NV*RNE4R (XX,  YCPRI,  ZCPRI,  TT.  DTO.  PS,  ICASE) 

DCON-CONV/CCPRI 

DCON-ASS ( 1 .  -DCON) 

IF(DCON.  LF  0  001)00  TO  330 
CO  TO  342 

330  WRITE (3.  3347>C0NV 
DTO-DTO-TMVNF 

3347  FORMAT ( /4X.  27HNEAR  FIELD  CONCENTRATION  «  , 


1PE14. 7, 8H  KG/M**3> 


MATCH  INTERMEDIATE  FIELD  MODEL  TO  NEAR  FIELD  MODEL 


VELD=VEi  OC(TMAXNF) 

COND»AVENF ( TMAXNF ,  VELD.  ALOC,  BLOC.  VELD,  PS.  ICASE) 
WRITE (3, 3330)C0N0 

3330  FORMAT ( /4X, 33HAVERA0E  NEAR  FIELD  CONCENTRATION  - 
18H  KG/M**3> 

CONDI-RMfeDKVELD.  ALOC,  BLOC,  TMAXNF,  DTI,  XLS.  ICASE) 

DCON-CONDI/CCNO 

DC0N=A3S ( 1 .  -DCON) 

IF (DCON.  LE.  0.  001 >00  TO  230 
IF  (DCON.  LE.  0.  01  )00  TO  240 
IF  (DCON.  LE.  0.  1  >00  TO  230 
231  DT1-DT1+DD11 

CONDI-RMFDI (VELD,  ALOC,  BLOC,  TMAXNF,  DTI,  XLS,  ICASE) 

DCON*CCNOI/CONO 

DCON* ABS ( 1 .  -DCON) 

IF (DCON.  LE.  0.  001 >00  TO  230 
IF(DCON.  LE.  0.  01 >00  TO  240 
IF(OCOM.  LE.  0.  1)00  TO  230 
00  TO  231 
230  DT1-DT1-DDT1 
D0T1-DDT1/10. 

241  DT1-DT1+DDTI 

CONDI-RMPDI (VELD,  ALOC,  BLOC,  TMAXNF,  DTI,  XLS,  ICASE) 

DCON-CCNDI/CONO 

DC0N-ABS(1.  -DCON) 

IF(DCON.  LE.  0.  001  )Q0  TO  230 
IF  (DCON.  LE.  0.  01  >00  TO  240 
00  TO  241 
240  DT1-DT1-DDT1 
DDT1-DDT1/10. 

242  DT1-DT1+DDT1 

CONDI »RMPDI (VELD.  ALOC.  BLOC,  TMAXNF,  DTI,  XLS,  ICASE) 


1PE14.  8. 


non 


DCON-CONOI/CONO 
DC0N*A3S(1.  -DCON) 

IF(DCON.  LE.  0.  001 )00  TO  250 
CO  TO  242 

250  WRITE(3,  5549>C0N0I 

5549  FORMAT ( /4X»  35H INTERMEDIATE  FIELD  CONCENTRATION  -  ,  1PE14.  8, 
18H  KC/M**3> 

V£LD=VEt  0C( TMAXIF) 

DTI  1-0.  0 

COMD=AVEIF(TMAXIF.  VELD.  DTU  > 

WRITE (3, 5532>C0N0 

5552  FORMAT < /4X. 43HAVERA0E  INTERMEDIATE  FIELD  CONCENTRATION  -  , 

1 1PE14.  8. 8H  KG/M**3> 

MATCH  FAR  FIELD  MODEL  TO  INTERMEDIATE  FIELD  MODEL 

CONF«FAR(VfcLD,  ALOC, BLOC,  TMAXIF,  DT2) 

DCON-CCNf/CONO 
DCON-ABS(t.  -DCON) 

IF(DCON.  LE.  0.  001 >00  TO  293 
IF (DCON.  LE.  0.  01 >00  TO  233 
IF(DCON.  LE.  0.  05)00  TO  253 
II- (DCON.  LE.  0.  2) GO  TO  252 
244  D I 2-DT2+DDT2 

CONF»FAR(VElD.  ALOC,  BLOC,  TMAXIF,  DT2> 

DCON-CONF/COND 
DCON-ABSO.  —DCON ) 

IF (DCON.  LE.  0.  001 >G0  TO  293 
IF (DCON.  LE.  0.  01 >00  TO  233 
IF ( DCON.  LE.  0.  05)00  TO  253 
IF (DCON  LE.  0.  2 >00  TO  252 
GO  TO  244 

252  DI2-DT2-DDT2 
D0T2-DDT2/10. 

247  DI2-DT2+DDT2 

CONF*FAR ( VELD,  ALOC,  BLOC,  TMAXIF,  DT2> 

DCON-CONf-  /CONO 
DC0N*A3S( 1.  -DCON) 

IF  (DCON.  LE.  0.  001  >00  TO  293 
IF ( DCON.  LE.  0.  01)00  TO  233 
IF  ( DCON.  LE.  0.  05)00  TO  253 
00  TO  247 

253  DT2-DT2-DDT2 
DDT2-DDT2/10. 

248  DT2*DT2+DD  T2 

CONF-FAR(V£LD.  ALOC,  BLOC,  TMAXIF, DT2 ) 

DCON-CONP /COND 
DC0N*A3S(1.  -DCON) 

IF (DCON.  LE.  0.  001 >00  TO  293 
IF ( DCON.  LE.  0.  01 >00  TO  233 
00  TO  248 
233  DT2-DT2-DDT2 
D0T2-DDT2/10. 

290  D I 2aDT2+DDT2 

CONF-FAR(VtLD.  ALOC.  BLOC,  TMAXIF,  DT2) 

DCON-CONF/CONO 
DCON*ABS( 1.  -DCON) 

IF(DCON.  LE.  0.  001 >00  TO  293 
00  TO  290 

293  WRITE(3,  555'DCONF 

5554  FORMAT ( /4X. 26HFAR  FIELD  CONCENTRATION  ■  , 1PE14  8,  8H  KG/M**3> 
WRITE (3.  5399>TMVNF,  TMAXNF, TMAXIF 
5599  FORMAT (///3X,  40HC0NVERSICN  TIMES  FOR  THE  VARIOUS  MODELS:/// 
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14X,  31HMAXIMUM  VERY  NEAR  FIELD  TIME  »  ,  IPE13.  7,  4H  SEC/ 

2/4X.  26! .'MAXIMUM  NEAR  FIELD  TIME  -  .  IPE13.  7. 4H  SEC//4X, 

334HMAX I MUM  INTERMEDIATE  FIELD  TIME  -  . 1PE13.  7. 4H  SEC///) 

WRITE <3. 302)  DTO,  DT1.DT2 

302  FQRM4T(3X.  40HC0RRECTI0N  TIMES  FOR  THE  VARIOUS  MODELS: ///4X, 
129HNE4R  FIFlD  CORRECTION  TIKE  »  .  0PF12.  4,  4H  SEC//4X. 

237H I M I ENMED I ATE  FIELD  CORRECTION  TIME  =  , 0PF12.  4,  4H  SEC//4.X, 
328HFAR  FIELD  CORRECTION  TIME  -  .  0PF12.  4,  4H  SEC) 

CALCULATION  LOOP  FOR  EACH  OBSERVATION  POINT 

DO  1000  IIIM.  NOBS 
TIME-TLOW(III) 

WRITE (3. 300)  X08 (III).  YOB(III).  ZOB(III) 

300  FORMAT! 1H1, 2X. 37HC00RDINATES  OF  THE  OBSERVATION  POINT:/// 

14X. 22HD0WNSTREAM  DISTANCE  -  ,  0PF10.  4, 2H  M//4X. 9QHTRANSVERSE 
2  DISTANCE  FROM  THE  CHANNEL  CENTERLINE  -  , 0PF10.  4.  2H  M//4X. 
343HVERTICAI  DISTANCE  FROM  THE  WATER  SURFACE  -  .  0PF10.  4,  2H  M 
4///) 

WRITE (3.  309) 

309  F0RMAT(6X,  4HTIME.  8X,  13HCONCCNTRATION,  8X,  21HT0TAL  MASS  EVAPORATED/ 
*4X,  9H<SEC0Nf»S).  7X,  9H(KQ/M*0>,  18X.  4H<K0)/> 

DETERMINE  IF  VERY  NEAR  FIE> D  IS  NEEDED 
NN-0 

IF (TIME.  OT.  TMVNF)GO  TO  10 
ANN- ( TMVNF-T I MF ) /TDELT (III) 

NN-ANN+1 

IF ( NN. OT. NSTEP (III)) NN-NSTEP (III) 

CALCULATE  VERY  NEAR  FIEl  D  CONCENTRATION 
PRINTING  IS  DONE  IN  VNEAR  ITSELF 
VNPRT-1. 

TD--TDELT  (III) 

PRTM-TIME 

CON-VNEAR ( XOB ( 1 1 1 ) ,  YOB ( 1 1 1 ) ,  ZOB  < 1 1 1 ) , PRTM, TTVNF, VNRO.  OC.  TD,  VNPRT ) 
IF(NN.  EG.  NSTEP ( III ) )C0  TO  1000 
T I ME-T I ME+NN*TD 

IF  NONE  OF  THE  OBSERVATION  TIME  IS  IN  THE  VERY  NEAR  FIELD 
OR  IF  ON)  Y  PART  OF  THE  TOTAL  OBSERVATION  TIME  PERIOD  IS  IN 
THE  VERY  NPAR  FIELD.  THE  OTHER  FIELDS  MUST  BE  USED 

10  NNN-NNM 

DO  1001  JJJ-NNM.  NSTEP(III) 

IF(TIME  LT.  (TMAXNF-DTO) )00  TO  11 
IF (TIME.  LT.  (TMAXIF-DT0-DT1 ) )00  TO  12 
00  TO  13 

CALCULATE  N>-AR  FIELD  CONCENTRATION 

1 1  CON-RNEAR ( XOB (III).  YOB (III).  ZOB ( 1 1 1 > .  TIME,  DTO.  PS,  ICASE ) 

GO  TO  100 

CALCULATE  intermediate  f I ei.  d  concentration 

12  DTI 1-DTi-DTO 

CON-RMED I ( XOB ( 1 1 1 ) . YOB (III),  ZOB ( 1 1 1 >, TIME, DT11, XLS,  ICASE) 

CO  Tu  100 

CAI  CULATE  FAR  FIELD  CONCENTRATION 

13  DT22-DT2+DT1-DT0 

CON-FAR ( X03 (III),  YOB ( 1 1 1 ) .  ZOB ( 1 1 1 ) , T IME,  DT22  > 

100  WRITE (3, 303) TIME.  CON, MEVAP 

303  FORMATOX,  F10.  2.  4X,  1PE19.  8.  7X,  E19.  8) 

TIHE«TIMFVrOELT( I I I > 

1001  CONTINUE 
1000  CONTINUE 
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RETURN 
2000  END 

FUNCTION  AVfcNFtT, X. Y,  Z,  U,  PS.  ICASE) 

REAL  MEVAP 
DIMENSION  PS(9,  9) 

COMMON  /ACT/EXCO. EYCO. EZCO. EEX, UEEX, PI,  ALOC, BLOC,  DC, 

1WC. SMACS.  HtVAP,  DENS,  ROA.  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELSI/U1NF, U2NF, TPER, ALFANF,  TLV, BETA, AKT,  UPRI, RH.  TMVNF 
*  I  DEC ,  RVNF,  hi-VAP 
DK-O. 0 

THIS  FUNCTION  CALCULATES  AVERAGE  NEAR  FIELD  CONCENTRATION 

IF< ICASE  EQ.  1 >N-9 
IF( ICASE.  EQ.  2)N-1 

IF( ICASE.  EQ.  1 ) SMAS- ( SMASS- MEVAP ) / 9 . 

IF< ICASE  EQ.  2 > SMAS-SMASS 
CONNl-SMAS*EXP<-DX*T>/<  <4.  -*PI*T>**1.  9) 
C0NN2-C0NNl-*£XP(-<X-U>*-*2.  /<4.  *EXCO*T>> 

C0NN3*C0NN»/( <EXC0*EYC0*£ZC0>**0. 9) 

C0NN3 -C0NN3-* <  ( P I *EZ  C 0*T / ( DC  **2 .  ))**0.  5) 

CON  1-0. 

C0N2-0. 

CCN3-0. 

C0N4-0. 

C0N9-0. 

Dl  — (DC-Bl  0C)/<  (4.  *EZC0*T)*-*0.  9> 

D2-D1 

D3— (DC-2.  *DC+BLOC ) / ( <4.  *EZC0*T>**0.  9) 

D4-D1 

D9— ( DC ♦BLOC ) / ( (4.  *EZC0*T>**0.  9> 

El-BLOC/ ( <4.  »EZCO*T>**0.  9) 

E2-E1 

E3-(2.  *DC~BLOC ) / { ( 4.  *EZC0*T>**0.  9) 

E4-E1 

E9—  ( -BLOC  >  /  ( <  4.  *EZC0*TM*0.  9) 

DO  100  U-l.M 

CONI— C0N1*EXP<— (Y-PS< 1,  J) )**2.  /(4.  *EYCO*T>) 

**<ERRF(D1 )+ERRF (El ) ) 

C0N2-C0N2-»EXP(-(Y-PS<2,  J)  >**2.  /(4.  *EYCO*T>) 

**  <  ERRF ( D2 ) +ERRF ( E2 ) ) 

C0N3-C0N3+EXP  ( - ( Y-PS  ( 3,  U>  >**2.  /(4.  *EYCO*T>  ) 

**  <  ERRF  <  D3 ) +ERRF <  E3  >) 

CCN4-C0N4 i EXP (-< Y-PS (4,  J) )**2.  /<4.  *EYCO*T>> 
**(ERRF(D4>+ERRF<E4) ) 

C0N9»CCN9+EXP(-<Y-PS<9,  J))**2.  /<4.  *EYCO*T>) 

**  <  ERRF  <  D9  > +ERRF  <  E9 ) ) 

100  CONTINUE 

A  VENF-C  0NN3-*  <  CON 1 +C  0N2+C  0N3+C  0N4+C  ON  9 ) 

RETURN 

ENO 

FUNCTION  AVEIFTT,  X,  DTI ) 

REAL  MEVAP 

COMMON  /ACT/EXCO,  EYCO,  EZCO, EEX, UEEX, PI, ALOC, BLOC, DC, 

1WC. SMASS, HFVAP, DENS,  ROA, EXAVE, UEXAVE,  UFS.  H,  NN 
COMMON /El.  SI/U1NF,  U2NF,  TPER,  ALFANF,  TLV.  BETA,  AKT,  UPRI,  RH,  TMVNF, 
*IDEC,  RVNF,  HtVAP 
DK— 0.  0 

THIS  FUNCTION  CALCULATES  AVERAGE  INTERMEDIATE  FIELD 
CONCENTRATION  AT  THE  BOUNDARY 


nno 


SMAS-SMASS-MEVAP 
UT-VEi  OC  (T) 

AREA*DC*WC 

CCNM1»SMAS*EXP (-DK*(T-DT1 ) )/( (4. *PI#EEX*(T-DT1 ) >##0.  5*AREA> 
AVElF-CCNMl-*E.XP(-(X-UT>-**2/(4.  *EEX*(T-DT1 )  >  > 

RETURN 

Ewn 

c 

FUNCTION  RNr  AR  ( X<  Y,  Z,  T,  DTO,  PS,  ICASE) 

REAL  MEVAP 
DIMENSION  PS(5,  5) 

COMMON  /ACT/EXCO. EYCO,  EZCO,  EEX, UEEX, PI, ALOC, BLOC, DC, 

1WC.  SMASS,  Hi-VAP,  DENS,  ROA,  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELSI/U1NF,  U2NF , TPER, ALFANF.  TLV,  BETA,  AKT,  UPRI, RH.  TMVNF, 
*  I  DEC ,  R  VMF ,  MB  VAP 
DK-O. 0 
C 

C  THIS  FUNCTION  CALCULATES  NEAR  FIELD  CONCENTRATION 

C 

DBX-4  »EXCO*(T+DTO> 

DBY-4.  «EYCO-*(T+DTO) 

DBZ-4.  *EZCO*(T+DTO> 

U 1 VELOC ( T ) 

IF (ICASE.  EQ.  l)N-9 
IF<  ICASE.  EQ.  2 ) N**  1 

IF( ICASE.  EQ.  l)SMAS-( SMASS- MEVAP)/ 5. 

IF< ICASE.  EQ.  2)SMAS«SMA5S 

CCN0-SMA3  »EXP  ( -DK-*  ( T+DTO ) - < X-U ) **2.  /DBX  > 

CONO»CONO/<  (4.  *PI*(T+DTO>  )**i.  3*(EXC0*EYC0*EZC0>**0.  5) 

CON 1-0 
C0N2-0. 

C0N3-0. 

C0N4-0. 

C0NS~0. 

DO  100  J«1,N 

CCN1*C0NI+EXP(-(Y-PS(1,  J)  >-**2.  /DBY-  (  Z-BLOC  )  **2.  /DBZ> 
CGN2»CCN2+EXP < - < Y-PS < 2,  J) >**2.  /DBY- < Z-BLOC >**2.  /DBZ) 
C0N3»C0W3+EXP(-(Y-PS(3»  J)  >■♦*2.  /DBY-(Z-2.  *DC+BLCC  >**2/DBZ ) 
C0N4»C0N<HEXP<-(Y-PS<4,  J)  >-**2.  /DBY- (  Z-BLOC  >**2.  /DBZ) 
C0N9»C0N3tEXP(-(Y-PS(5.  J) >**2.  /DBY-( Z+BLOC )**2.  /DBZ) 

100  CONTINUE 

RKEAR-CONO*  <CCWl+C0N2+C0N3+<:0N4+C0NS ) 

RETURN 

END 

C 

FUNCTION  RMfrDKX,  Y.  Z,  T,  DTI,  XLS,  ICASE) 

REAL  MEVAP 
DIMENSION  XLS <9 > 

COMMON  /ACT/EXCO,  EYCO,  EZCO, EEX. UEEX, PI, ALOC, BLOC, DC, 

1WC, SMASS, HfeVAP,  DENS.  ROA,  EXAVE,  UEXAVE.  UFS, H, NN 
COMMON  /ELSI/U1NF,  U2NF ,  TPER,  ALFANF,  TLV,  BETA,  AKT,  UPRI,  RH,  TMVNF, 
*IDEC, RVNF, MEVAP 
DK«0.  0 

THIS  FUNCTION  CALCULATES  INTERMEDIATE  FIELD  CONCENTRATION 

IM  ICASE  EQ.  DNN-9 
IF< ICASE  EQ  2>NN«i 
IF (ICASE  EQ.  1 >8MAS-(SMASS-MEVAP>/5. 

IF( ICASE  EQ.  2>SMAS-SMAS3 
AREA*WC*DC 
UT-VELOC(T) 


IF(U2NF. N£.  0.  >EEX-EXAV£ 

CCN0*SMAS/( (4.  *PI*EEX*(T-DT1 ) >*»0.  5*AREA> 
C0N0»C0N0*EXP(-DK*(T-DT1 )- (  X-UT)**2/  <4.  *EEX*(T-DT1  >  )  > 

CON 1-0 

00  200  M— 1 ,  MN 
DO  100  N-1.20 
AN-N 

C0N2— C  OS  ( AN*P  I  *  ( WC  /2 .  -t-XLS(M>  >/WC>*C0S(AN*PI*(WC/2.  +Y)/WC) 
CCN2-CCN2»EXP(-AN**2.  *PI**2.  *EYCO* ( T-DT1 ) / < WC**2.  ) > 

CONI— CONI  ICON? 

100  CONTINUE 
200  CONTINUE 

RrtP  D I -C QNO*  ( 1 .  +2.  •♦CONI ) 

IF(U2NF.  EQ.  0.  >00  TO  221 
EXT-1 .  483*DC*UHRI*FACT(T> 

RM£DI-RMEDI*(1.  +EXT/EEX*(X-UT >«*2.  /(4.  *EEX*(T-DT1  >  >  > 

IF  (RME»I.  LT.  0.  0>  RMEDI-O.  0 
221  RETURN 
ENU 

FUNCTION  FAR(X.  Y,  Z,  T,  DT2> 

REAL  MEVAP 

COMMON  /ACT/EXCO- EYCO, EZCO. EEX,  UEEX,  PI.  ALOC.  BLOC,  DC. 

1UC.  SMACS.  Ht-VAP.  DENS.  ROA.  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELSI/U1NF. U2NF , TPER, ALFANF,  TLV, BETA,  AKT,  UPRI.  RH.  TMVNF. 

•  I DEC. RVNF,  MtVAP 
DK-O.  O 

THIS  FUNCTION  CALCULATES  FAR  FIELD  CONCENTRATION 

SMAS-SMASS— HEVAP 

AREA-WC*DC 

UT-VEtOC(T) 

IFIU2NF.  NE.  0.  >UEEX-U£XAVE 

CONO-SMAS/ (AREA* <4.  *PI*UEEX*(T-DT2>  >**0.  5> 

FAR— CONO*EXP  (  — DK*  (  T-DT2 )  —  <  X— UT  >  ■**2/  ( 4.  *UEEX*(T-DT2>  >  > 

IFIU2NF.  EQ.  0.  >00  TO  122 

UEXT- ( 0.  045*SQRT ( UFS*'JPR  I  > *WC**2/RH  >  *FACT  ( T > 

FAR-FAR* ( 1.  ♦  (  (X-UT>**2/(4.  *UEEX*<T-DT2>  >  >*UEXT/UEEX> 

IF  (FAR.  LT.  0.  0>  FAR-O.  0 
122  RETURN 
END 

FUNCTION  VELOC ( T ) 

REAL  MEVAP 

COMMON  /ACT/EXCO. EYCO, EZCO, EEX,  UEEX, PI,  ALOC,  BLOC,  DC, 

1WC. SMACS, HFVAP,  DENS,  ROA.  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELSI/U1NF, U2NF, TPER, ALFANF, TLV, BETA,  AKT, UPRI,  RH.  TMVNF, 

•  IDEC,  RVNP, MEVAP 
DK-O.  0 

THIS  FUNCTION  CALCULATES  THE  INTEGRAL  OF  THE  CHANNEL  VELOCITY 
W.  R.  T.  TIM*- 

V£L1-C03<2.  *PI/TPER*(T+ALFANF>  >-C0S(2.  *P I*ALFAMF/TPER > 
VEL0C-UlNF*T-U2NF*TPER/<2.  *PI >*VELl 
RE  I  URN 
END 

FUNCTION  ERRF(XX) 

X-XX 

IP  (XX.  LT  0.  >X— XX 
Al-O.  34802 


A3— 0.  09587 
A3*0.  74785 
A4«0. 47047 
YY-1.  / ( 1 .  +A4*X> 

ERRF-1 .  - ( A1*YY+A2*YY**2+A3*YV**3 >  *EXP ( -X**2 ) 

IF<  XX.  LT.  0.  >ERRF—ERRF 

RETURN 

END 

FUNCTION  FACT ( T ) 

REAL  flEVAP 

COMMON  /ACT/EXCO.  EYCO,  EZCO,  EEX.  UEEX. PI, ALOC, BLOC. DC, 

1WC.  SMASS,  Hi-VAP,  DENS,  ROA,  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELS I /U INF,  U2NF, TPER,  ALFANF, TLV,  BE  I  A, AKT,  UPRI,  RH,  TMVNF, 

4 1 DEC, RVNF,  HhVAP 
DK»0.  0 

THIS  FUNCTION  CALCULATES  THE  TIDAL  FACTOR 

F1-AKT*SIN<2.  0*P I /TPER*  <  T +ALF ANF + BETA ) >+4.  0*SIN(2.  0*P I /TPER* ( T+ 
i ALFANF ) ) 

FACT«F1-AKT*C0S<4.  *PI/TPER*<T+ALFANF+0.  5*BETA ) ) 

RETURN 


FUNCTION  VNt-AR<X.  Y,  Z,  T,  TO,  RI.  OC,  TD,  VNPRT) 

DIMENSION  YVNF < 3 ) ,  VNF ( 3 ) 

IN l EGER  RUNCE 
REAL  MEVAP 

COMMON  /ACT/EXCO. EYCO, EZCO, EEX, UEEX. PI, ALOC, BLOC. DC, 

1WC. SMASS, HbVAP,  DENS,  ROA.  EXAVE,  UEXAVE,  UFS,  H,  NN 
COMMON  /ELSI/U1NF,  U2NF,  TPER,  ALFANF, TLV. BETA,  AKT,  UPRI, RH,  TMVNF, 
*IDEC,  RVNF, Mb VAP 
C 

C  THIS  FUNCTION  CALCULATES  VERY  NEAR  FIELD  CONCENTRATION 

C 

C  COMPUIE  INITIAJ  RIOHT  HAND  SIDES 

C  YVNF < 1 )*SP ILL  RADIUS 

C  YVNF <2>-WA TER  MASS  ENTRAINED 

C  FRIC-'JSTAR  COEFF-3.  807+VNUM/<RH#+(  1.  /6.  > ) 

ICOUNT-1 
MtVAP-O.  0 
YVNF ( 1 )*0. 

YVNF  ( 2  >  mO. 

YVNF(3)-0. 

RO-RI 

FRIC-UPRI/UFS 

THO-SMASS/ ( P I*DENS*  < R0**2.  ) ) 

VNb (1)«1.  3*( (GC*THO*ABS< 1.  O-ROA/DENS) )**0.  5> 

VW-O-VNFU  ) 

C  UPRIS^MODIFIEO  FRICTION  VELOCITY 

UPRIS»FRIC*< < (2.  *VNF(l)/3  >**2.  +UFS**2.  >*-*0.5) 

C  R I NO-RICHARDSON  NO. 

RIN0=0.  59*<VNF(1 )**2.  >/< < 1.  3*UPRIS>**2.  > 

UJUP-I.  3#UPRIS/<£.  00+0.  29+RINO) 

USIDE-2.  *<FRIC**2.  )*VNF(I) 

C  INITIAL!  Y  DR/DT-DENOM  OF  USIOE  DEFINITION 

UE-UTOP+2.  »(THO/RO) »USIDE 
VNF<2)«R0A*PI+UE*<R0**2.  ) 

TVNF-TO 
OLDMW-O  0 
OLDRO-O.  0 
0L0I1E-0.  O 
ROO-RO 
AN01-0  0 
ANC2“0  O 

C  TVNF-STARTINO  TIME  QLDMW* INITIAL  WATER  ENTRAINMENT 

C  0LDR0»STARTIN0  RADIUS  OLDME*INITIAL  MASS  EVAPORATED 
IF ( DENS.  OT.  ROA >00  TO  1 
N*3 

VNF(3>-PI*(R0**2.  >*HEVAP*DENS 
00  TO  2 

1  N-2 
VNME-O. 0 

C  VNME-TEMPCRARY  VAl  UE  OF  EVAPORATED  MASS 

IF (VNPRT.  LT.  0.  5)00  TO  2 

2  IRUNO-RUNOE <  N,  YVNF,  VNF,  TVNF,  H  > 

IF ( IRUNO.  EQ.  0>G0  TO  6 

C  COMPUIE  NEW  RIOHT  HAND  SIDES 

IF<N.  EQ.  2)00  TO  3 
VNME- ( OLDHF+YVNF (3) > /2. 

0LDI1F  *  YVNF  ( 3  > 

3  VNMW* ( OLDMW+YVNF ( 2  >  > /2. 

0LDMW-YVNF(2> 

C  RHOM-M I XTURE  DENSITY 

RHOM- <  SMASS-VNME+VNMW  > / ( ( SMASS-VNME  > /DENS+VNMW/ROA > 

C  VNCON-SPILL  CONCENTRATION 


r 
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VNCON- ( SMASS-VNME ) / ( ( SMASS-VNME ) /DENS+VNMW/ROA ) 
RO*(OLDRO+YVMT  <  1  >+2.  *ROO> /2. 

QLRRO" YVNF ( 1 ) 

C  VNlHK-SPILL  THICKNESS 

VNTHK»(  (SMASS-VNME > /DENS+VNMW/ROA >/ (PI+R0**2.  ) 

C  DETERMINE  WHICH  THICKNESS  APPLIES 

IF(RO.  LE.  (WC/2.  -ALOC) >GO  TO  S 
ANC1-2.  *ASIN( 1 .  -< (WC/2.  -ALOC ) /RO > **2.  > 

IF(RO. GT.  (WC/2. +ALOC) >GO  TO  4 
VNTHK«VNTI!**(1.  +0.  5* ( AN01-SIN( ANG1 )  >  /PI ) 

GO  TO  3 

4  ANG2-2.  *ASIN(1.  -((WC/2.  +ALOC )/R0)**2.  ) 

VNTHK-VNTHX*(1.  +0.  5*(ANG1-SIN(ANG1  >  >/PI+0.  5*(ANG2 

4-SIN (ANG2) ) /PI > 

5  VNMD-1.  3*( (0C*VNTHK*A8S(1.  O-ROA/RHOM) >#*0.  5> 
UPRIS~FRIC*(  ( (2.  *VNF(l)/3  >**2. +UFS**2.  >**0.  5) 

RINO-O.  39* ( VNF ( 1 ) **2.  )/( ( 1.  3«UPRIS)**2.  > 

UTOP-1.  3*UPRIS/(6.  00+0.  23*RIN0) 

VSIDE-2.  *(FHIC**2.  >*(VNF ( 1 >*#2.  )/VNFO 
UE-UTOP+2.  * ( VN THK/RO > *US I DE 

VNF(2)«PI»R0A*(R0**2.  >*UE*(l-0.  5*(ANG1-SIN(ANG1 > >/PI 
4-0.  5* ( ANC2-S I N ( ANG2  > ) /P I > 

IF(N.  EQ.  2) CO  TO  2 

VNF ( 3 ) *p I * ( R0**2.  )*HEVAP*VNC0N*(l-0.  3*( ANG1-SIN( AN01 ) ) /PI 
4-0.  5+( AN02— SIN( ANG2 ) ) /P I ) 

GO  TO  2 

C  COMPUTE  VALUES  AT  END  OF  TIME  STEP 

6  IF(N.  EQ.  3) CO  TO  7 
VNME-O. O 

CO  TO  8 

7  VNME-YVNPO) 

8  CCPR I» ( SMASS-VNME )  /  (  ( SMASS-VNME ) /DENS+YVNF (2 ) /ROA ) 
RR0-YVNF(1  >+R00 

AN01-0. 0 
AN02-0. O 

VN I HK- ( ( SMASS-VNME > /DENS+YVNF ( 2 ) /ROA ) / ( P I * ( RR0**2.  ) ) 
IF(YVNFU).  LE.  (WC/2. -ALOC  >  >00  TO  10 
AN01-2.  *A8IN( 1.  -(WC/2.  -ALOC > / (RR0**2.  ) > 

IF(YVNFd).  GT.  (WC/2. +ALOC) >G0  TO  9 
GO  TO  10 

9  AN02-2.  *ASIN(1.  -  (WC/2.  +ALQC ) /(RR0**2.  >> 

VNTHK-VNTH**(1.  +0.  3*(ANG1-SIN(ANG1  >  >/PI+0.  5*(ANC2- 

4SIN(ANG2) )/PI ) 

C  DEI  ERMINE  IF  GRAVITY  SPREADING  IS  OVER 
1 0  RHOM- ( SMASS- VNME+ YVNF ( 2  >  >  /  (  ( SMASS-VNME > / 

4DENS+YVNF (2 ) /ROA ) 

V1EST-1.  3*( (GC*VNTHK*ABS(1.  -ROA/RHOM) )**0.  5) 

IF(VTEST.  LE.  (3.  70*UPRI> >00  TO  12 
C  PR INI  OUTPUI  IF  VNPRT-1.  0 
IF(VNPRT.  LT.  0.  3)G0  TO  11 

C  CHFCK  IF  INI EGRATION  TIME  IS  PRINT-OUT  TIME 

IF(TVNF.  LE.  T)GO  TO  11 
VNEAR-CCPRI 

C  CHfcCK  IP  X,Y.  Z  IS  IN  SPILL 

VMFX 1 -VELCC (T)+( YVNF ( 1 ) +ROO ) 

VNFX2*VE10C (T)— ( YVNF ( 1 )+R00) 

IF(X.  OE  VNFX1 ) VN£AR»0.  0 

IF ( X.  LE  VNFX2)VNEAR-0.  0 

IF(Y.  GE  ( YVNF ( 1 >+ALOC ) )VNEAR«0.  0 

IF(Y. LE.  (-YVNP ( 1 )+ALOC ) )VNEAR«0.  0 

IF(DENS.  GT.  ROA >00  TO  30 

IF(Z. GT.  VNlHK)VNEAR-0.  0 

GO  TO  60 
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SO  IF<Z.  LE.  (DC-VNIHK) WNEAR-O.  0 
60  WRITE(3>  103>T.  VNEAR,  YVNF<3> 

IC0UNT-IC0UNT+1 

INCREASE  PRINT-OUT  TIME  BY  TIME-STEP 
T-T+TD 

IF <  ICOUNT.  OT.  NN)VNPRT-0. 

IF(T.  LT.  THVNFJQO  "0  il 

IF  (N  .  EQ.  **  MEVAP  -  YVNF <  3 ) 

RE  I URN 

11  VN*<1)»VTEST 
R«*0-YVNF(  1  )+R00 

UPRIS=FRIC*< < <2.  *VNF<l>/3.  ) **2. +UFS**2.  >**.  5) 

RINO-O.  59*<VNF<1)**2.  )/( < 1.  3«UPRIS>**2.  > 

U10P-1.  3#URRIS/<6.  00+0.  2S*RIN0) 

U8IDE-2.  *<FRIC**2.  >*< VNF < 1 >**2.  >/VNF0 
UE-UTOP+2.  *  ( VN I HK/RRO ) *US I DE 

VNM2)«PI*RQA#UE#<RR0**2.  >*<1-0.  5* <ANG1-SIN< ANG1 )  >/PI 
*-0.  5* ( ANC2-8 1 N < AN02 )) /PI) 

IF(N.  EQ.  2)00  TO  2 

VNP(3)»PI*(RR0**2.  >*HEVAP*CCPRI*< 1-0.  3*<ANG1-SIN(ANG1 > )/PI 
*-0. 3*<ANG2-3IN<AN02> )/PI) 

00  TO  2 

12  TMVNF-TVNF 
RVNF-YVNF< 1 )+R00 

IF<N.  EQ.  3 ) Mh  VAP" YVNF { 3 ) 

I DEC-2 

IF (RVNF.  LE.  (WC/2.  -ALOC ) ) IDEC-1 
IF(RVNF.  OT.  (UC/2.  ♦ALOC ) ) IDEC-3 
VNtAR-CCPRI 

103  FORMAT <3X«  F10.  2.  4X.  1PE1S.  8,  7X,  E13.  8) 

100  RETURN 
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***«*PROCRAM  STEADY***** 

PROJECT  NO.  :  02-5864-003 
PROJECT  SPONSOR:  COAST  CUARD 

THIS  PROCRAM  CALCULATES  THE  PLUME  TRAJECTORY  AND  PLUME  CONCEN¬ 
TRATION  OF  A  LIQUID  CHEMICAL  CONTINUOUSLY  SPILLED  INTO  A  BODY  OF 
WATER  HAV INC  A  CONSTANT  VELOCITY. 

INHUr  FILENAMES:  SPILLIN.DAT 
OUTPUf  FILE  NAMES:  SPILLOUT.DAT 

SUBROUTINE  STEADY 

INFU1  VARIABLES: 

X  -  STARTING  VALUE  OF  PLUME  PATH  INTEGRATION,  M 
H  -  INTEGRATION  STEP  SIZE,  M 

DISTA  -  INITIAL  DOWNSTREAM  DISTANCE  TO  THE  FIRST  PRINTOUT,  M 
DISTAN  -  INCREMFNTAL  DOWNSTREAM  DISTANCE  BETWEEN  PRINTOUTS,  M 
ROA  -  AMHIENT  FLUID  DENSITY,  K0/M**3 
DENS  -  DISPERSION  JET  FLUID  DENSITY,  KG/M**3 
TO  -  AMRIENT  TEMPERATURE,  DEGREES  RANKINE 
ACLASS(J)  -  FLOW  REGIME  DESCRIPTION 
DIAJET  -  INITIAL  PLUME  DIAMETER,  CM 
TESTNO  -  EXPERIMENTAL  TEST  NUMBER 
QIMIT  -  INITIAl  PLUME  FLOWRATE,  M**3/S 
SPTIME  -  TOTAL  TIME  OF  SPILL,  S 
TIHINC  «  TIKE  INCREMENT,  S 

TIMMAX  «  MAXIMUM  TIME  OF  THE  SPILL  EVALUATION,  S 
WC  -  WIDTH  OF  THE  CHANNEL,  M 
DC  -  DEPTH  OF  THE  CHANNEL,  M 
XOBS  -  DOWNSTREAM  DISTANCE  TO  THE  OBSERVATION  POINT,  M 
YOBS  -  Y  DIMENSION  FROM  THE  CENTER  OF  THE  CHANNEL  TO  THE 
OBSERVATION  LOCATION,  M 

ZOBS  -  Z  DIMENSION  FROM  THE  CHANNEL  SURFACE  TO  THE  OBSERVATION 
LOCATION,  M  <FOR  THE  PLUME  CENTERLINE  CONCENTRATION.  SET 
ZOBS— I  .  0) 

A« OC  -  DISTANCE  IN  THE  Y  DIRECTION  FROM  THE  CHANNEL  CENTERLINE  TO 
TH«-  SPILL  ORIGIN,  M 

BLOC  -  VERTICAL  DISTANCE  FROM  THE  CHANNEL  SURFACE  TO  THE  SPILL 
ORIGIN,  M 

KNP  -  NEAR  FIELD  MODEL  DECAY  RATE  COEFFICIENT 
KIF  -  IN  l  CRM*- D I  ATE  FIELD  MODEL  DECAY  RATE  COEFFICIENT 
KFF  -  FAR  FIELD  MODEL  DECAY  RATE  COEFFICIENT 
EYCOEF  •  Y  TURBULENCE  COEFFICIENT  FOR  THE  NEAR  FIELD  MODEL 
EZCOEF  -  Z  TURBULENCE  COEFFICIENT  FOR  THE  NEAR  FIELD  MODEL 
SLCONC  -  ERROR  IN  MATCHINO  THE  NEAR  FIELD  AND  INTERMEDIATE  FIELD 
CONCENTRATIONS  AT  THE  POINT  OF  CONVERSION 
XL8INC  -  DISTANCE  INCREMENT  FOR  THE  INTERMEDIATE  FIELD  MODEL 
MATCHINO  ROUTINE,  M 
UR  -  MEAN  RIVER  VELOCITY,  M/S 

K1  -  INITIAl  JET  DIRECTION  I NU I CAT0R<+1 -HORIZONTAL  DOWNSTREAM, 
-1-HORIZONTAL  UPSTREAM, O-ALL  OTHER  CONDITIONS) 

K2  -  INITIAl  JfcT  DIRECTION  INDICATOR (+1-VERTICAL  UPWARD. -1» 
VERTICAL  DOWNWARD, O-ALL  OTHER  CASES) 

K3  -  INITIAl  JET'DIRECTION  INDICAT0R(+1-H0RIZ0NTAL  TRANSVERSE 
TO  THE  RIOHT, -1 -HORIZONTAL  TRANSVERSE  TO  THE  LEFT, 0* 

ALL  OTHER  CASES) 


DIMENSIONS: 


IN I  EGER  COUNT,  RUNGE,  HAMING 
REAL  KNf ,  KIF,  KFF.  LAM,  MASS.  LOC, JAY 
DOUBLE  PRECISION  ACLASb<4>,  TESTNOU  ) 

DIMENSION  T£(6)>  YR<6),  FR<6>,  Y(4,  6),  F<3,  6),  YRS(6>,  LOC (3.  2) 
DIMENSION  ERFN(4),  ERFI<4>,  ERFF(4) 

DIMENSION  XOD(IO),  ZOD< 10),  PATHL( 10) 

COMMON/PHYS/DCDR,  EPS,  UPRI.  ROA, DENS, G, UR, UA 
COMMON /HGS1 /Cl,  C2,  C3,  C4,  CS,  C6,  DPLU 
C0MM0N/HGS2/AFM1,  AFM12,  DELRO,  CA,  ZO,  B2M1,  CAI 
COMKON/CONP/ROT,  ALFA1, ALFA2, ALFA3 

C 

C**»*  READ  IN  DATA  FROM  FILE  'SPILLIN.DAT'  **************************** 
OPEN < UN I T- 1 «  NAME* 'SYO:  SPILLIN.  DAT;  O'.  READONLY,  TYPE- 'OLD') 

RfcADI  1,600)  X.  H,  DISTA,  DISTAN 
READ < 1 ,  601 >  ROA,  DENS,  TO,  UR 
READ( 1,602)  TESTNO  < 1 ) 

READ  < 1 , 603 )  < AC LASS < J) ,  J-l ,  4  > 

READ! 1,604)  DIAJET,  QINIT,  SPTIME 

READ( 1,  605)  TIMING,  TIMMAX 

READ  < 1 , 606 )  WC , DC , ALOC ,  BLOC 

READ! 1,607)  KNP, KIF, KFF 

READ < 1, 608)  EYCOEF,  EZCOEF,  SLCONC,  XLSINC 

R£AD<  1,609)  K1.K2,  K3 

C 

C****  PRINT  HEADINGS  AND  VALUES  OF  PARAME1ERS  AND  INITIAL  CONDITIONS 
(WRITEO. 717) 

UR ITE  < 3.  70S )  TESTNO < 1 ) 

WRITE<3, 709)  < ACLASSt J) ,  J-l ,  4 ) 

WRITE(3.  70-1)  DISTA,  DISTAN 

WRITEO,  736)  ROA,  DENS,  TO,  DIAJET,  TLV 

(WRITE (3,  705)  GINIT,  TPER,  SPTIME,  TIMINC,  TIMMAX,  WC,  DC 

WRITEO, 706)  ALOC. BLOC,  KNF,  KIF,  KFF,  LAM 

WRITE(3, 707)  CONC, SLCONC,  XLSINC 

UKITE(3, 712)  UR 

IF  (Kl.  EG.  1 )  WRITEO.  751) 

IF  (Kl.EQ. -1)  WRITE(3,  752) 

IF  (K2.  EQ.  1)  UR ITE (3,  753) 

IF  <KP.  EQ.  -1)  WRITEO,  754) 

IF  <K3.  EQ.  1)  WRITEO,  755) 

IF  (K3.  EQ. -1)  WRITEO,  756) 

WRITEO,  735)  EYCOEF,  EZCOEF 
WRITEO,  719)  ALFA1,  ALFA2,  ALFA3 
(WRITE (3,  726) 

(WHITE (3.  711) 

C 

C***«  INITIALIZE  VARIABLES  AND  ASSIGN  VALUES  TO  CONSTANTS 
0*  9.  80665 
XINIT-  X 
TLV-  0.  05 
ALFA l-  0.  0570 
ALFA2-  0.  500 
ALFA3®  0.  001 
LAM-  1.  16190 
CONC-  0.  3679 
EPS-  0.  0000000001 
PI-  3.  141592654 
NUMINC— 10.  0 
NUMIN-0 
I  AO-  0 

ALTL«ALFA3*TLV 

IF  (ALTL. EQ.  0.  0)  GO  TO  998 

«JPRI-UR*TLV 


I  Mil. 


C . IF  A  VALUE  FOR  H.  THE  INTEGRATION  STEPSIZE.  HAS  NOT  BEEN 

C . INPUT,  THPN  SET  H-O.  01*DIAJET/5.  0 . 


IF  (H.  LF.  0.  001  >  H=  DIAJ£T»0.  002 
HH*  H 

IF  (ROA.  EO.  DENS)  DCDR-1.  OE+20 
IF  (ROA.  EQ.  DEN3 >  GO  TO  4 
DCDR-1.  /  (I.  -ROA/DENS > 

4  ROT-( 1.  -ROA/DENS > /ROA 
MA8S-Q I N I T *DENS 
X  END  -UR  *  SP  T I  Me 
STH-SPTIME 
C 

C****  CAI  CULATE  HYDRAULIC  CHARACTERISTICS  OF  THE  RIVER  ************** 

C .  CALCULATE  RH-HYDRAULIC  RADIUS  OF  THE  CHANNEL . 

RATWD-  WC/DC 
RH*(WC*DC)/(2.  0*DC+WC> 


IF  (RATWU.  CT.  100. 0)  RH-DC 

C . CALCULATE  THE  VALUE  OF  UST,  THE  FRICTION  VELOCITY.  .  . 

C . IF  0.  5.  LT.  EYCOEF.  LT.  0.  7,  THEN  ASSUME  A  RIVER  FLOW 

IF  (EYCOEF.  OE.  0.  S.  AND.  EYCOEF.  LE.  0.7)  G 0  TO  7 

C . ASSUME  A  CHANNEL  FLOW  TO  CALCULATE  UST . 

UST-  0.  03426* UR/ (RH**0.  16667) 

00  TO  10 

C . ASSUME  A  RIVER  FLOW  TO  CALCULATE  UST . 


7  UST-  0.  09S2*UR/(RH**0.  16667) 

10  CONTINUE 

C . CAI  CULATE  VALUES  FOR  THE  VERTICAL,  CROSS-STREAM  AND  THE 

C . LONGITUDINAL  DIFFUSION  COEFFICIENTS  IN  THE  NEAR  FIELD, 

C . INTERMEDIATE  FIELD,  AND  THE  FAR  FIELD . 

EZNF-  EZCOEb *DC*UST 
EYNF-  EYCOEF *DC*UST 
EXNF-  EYNF 
EYIF-  EYNF 
EXIF-  S.  93*DC*UST 

EXFF-  0.  18*( (UR*UST)**0.  S>*( WC*WC > /RH 


C . CALCULATE  THE  VALUE  OF  ZR  FOR  THE  LOG  VELOCITY  PROFILE 

C . REQUIRE  A  FIT  TO  UR  AT  Z-ZO-DC . 


VK-  0.  4 
UO-  UR 
ZO-  DC 

ZR-  Z0/(EXP(U0*VK/UST>-1.  0) 


C . CALCULATE  THE  VALUE  OF  THE  EXPONENT  IN  THE  POWER  LAW  PROFILE.  . 

C . MATCH  VALUES  OF  VELOCITY  AT  Z«  0.  1*Z0 . 


UMATCH-  (UST/VK)*LOG( 1.  0  +  0.  1*Z0/ZR ) 

AP—  (LOO (UMATCH/UO ) ) /L0C(0.  1) 

C 

C****  CALCULATE  RIVER  SPEED  AT  THE  CHEMICAL  PLUME  DISCHARGE  HEIGHT**** 
ZA— (DC— BLOC ) /ZO 
UA— UO* ( ZA*  *AF ) 

C 

C****  CALL  SUBROUTINE  JET  TO  CALCULATE  THE  INITIAL  CONDITIONS  FOR  OOMS ' 
C**»*  PLUME  MODEL  INlEORATION  ***************************************** 

C . INITIALIZE  VARIABLES  FOR  CVNF3  MODEL . 

13  DO  17  1-1.6 
17  YK ( I ) —0. 0 
X-  XINIT 
YN ( 1 > -DENS 

CALL  JET(YR, UA, QINIT,  DIAUET, ROA,  KK1 , KK2,  KK3, ALOC, 3L0C, DC  > 


C . VALUES  OF  YR2  THROUGH  YR6  ARE  DEFINED  AND  STORED  FOR  PRINTOUT 

C . IN  SECTION  300 . 


YH2-YR ( 2 ) 

YR3-YR ( 3  > 

YK4— YR ( 4 ) 
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YR3-YR(3> 

YN6-YR(6> 

DO  20  1*1.6 
TE(  I  )*0.  0 
Y<4. I)-YR(I) 

F<  1.  I)*0.  0 
F(2.  I)*0.  0 
F<3.  I)*0. 0 
20  YRS( I )*0.  0 
COUNT  *  0 

IF  (KK2.  NE.  0)  H*2.  3«HH» ( 1 .  0-  ( DENS-ROA ) / 

1R0A«KK2>* <<AB3<YR<3J >*(UR**2.  0)  >**0.  5>/<UR**l.  50) 

IF  (KK2  EQ.  0)  H-HH 
AH  H 

IF  (IAG.  EQ.  0)  TYPE  *.  'H-  H 
C 

C*-***  CAI  CULATt  THE  DEVELOPMENT  OF  A  BENT  OVER  PLUME  WITH  THE  VERY  NEAR 
C*-***  FIELD  < OOMS ' )  MODEL  FOR  PLUME  CONCENTRATION.  PLUME  RADIUS,  VELOC- 
C»*«*  ITY  DECREMENT,  AND  PLUME  ANGLE  *******************************-*** 


IF  (IAG.  EG.  0)  TYPE  *,  '  BEGIN  BENT  OVER  PLUME  CVNF3  MODEL  ' 

C . CALL  RUKOE  TO  INTEGRATE  FOR  COUNT.  LE.  3 . 

100  IF  (RUNGE <6*  YR,  FR,  X,  H> .  ME.  1 >  GO  TO  114 

C .  CALL  RHS  TO  CALCULATE  RIGHT  HAND  SIDES . 

CAI.  L  RHS(  YR,  YRS) 

DO  101  K*l,  4 


101  FR ( K ) *YRS  <  K  > 

FRO)-  C0S(YR(4)  ) 

FR ( 6 ) *  SIN(YR<4) ) 

CO  TO  100 

114  COUNT  -  COUNT  +  1 
I SUB  -  4  -  COUNT 
DO  117  J-1,6 
117  Y( I SUB,  J)  •  YR (U) 

C .  CALCULATE  RIVER  SPEED  AT  THE  DEPTH  OF  THE  CHEMICAL  PLUME 

ZA-  (DC+YR(6))/Z0 
UA-  UO*  ( ZA-*-*AF ) 

CA«  L  RHS  (YR,  YRS) 

DO  120  K-1,4 
120  FdSUB.  K)-YHS(K) 

FdSUtf.  3)-  C0H(YR(4) ) 

F( I SUB,  6>—  8IN( YR (4 ) ) 

123  CONTINUE 

IF  (COUNT.  LE.  3)  GO  TO  133 

IF  (ARS(Y(1, 1) ).  LT.  DENS/3.  0>  H-AMAXl (HH,  H> 

IF  ((DENS-R0AMK2.  OT.  0.  0.  AND.  Y(l.  1).  QT.  DENS)  GO  TO  127 
IF  (( DENS-ROA )*K2.  OT.  0.  0.  AND.  Y(l,  1 ).  LT.  0.  0)  GO  TO  127 
00  TO  129 
127  Kl-1 
K3-0 

WRITE(3,  713) 

TYPE  *,  'UE1  DIRECTION  CHANGED. 

00  TO  13 
129  CONTINUE 


C .  TEST  WHETHER  XOBS  IS  IN  THE  VERY  NEAR  FIELD  REGION 

C . IF  SO,  TRANSFER  TO  BLOCK  320  FOR  OUTPUT . 

C . IF  NOT,  CONTINUE  THE  CNF  MODEL  COMPUTATIONS . 


IP  (IAG.  EG.  1.  AND.  Yd.  3).  GT.  XOBS)  GO  TO  320 
IF  (IAO.  EQ.  1.  AND.  Y(l.  3).  LT.  XOBS)  GO  TO  130 
C 

C***«  IF  X. LE.  DISTA,  PRINT  X  AND  Y  LOCATION  AND  PLUME  CENTERLINE  CON- 
C**#*  CENTRATION  VALUES.  ..  RESET  DISTA-DISTA+DISTAN  ******************* 


C . CCAI  CULATION  OF  CENTERLINE  CONCENTRATION  INCLUDES  THE  EFFECT  OF 

C . IMAOES  ABOUT  THE  TOP  AND  BOTTOM  SURFACES  OF  THE  RIVER 3 . 


1 
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AROT-  (2. *(-Y(l, 6) >/(LAM*Y(l. 2)  >  >**2 
AROB-  <2  *(DC+Y(1,  6) >/<LAM*Y(l,  2) ) >**2 
YCL-Yd,  1>*(1.  ♦EXP(-AROT)*EXP(-ARGB>  > 

IF  (IAG.  EG.  0.  AND.  Yd,  5).  OE.  DISTA)  WRITEO.  734)  Y<  1,  5).  -Y<  1, 6>. 
1YCL 

IF  (IAG.  EG.  0.  AND.  Y(l.  5).  0E.  DISTA)  DISTA-DISTA+DISTAN 
130  CONTINUF 
C 


C****  IF  PLUME  CENTERLINE  IS  ABOVE  THE  CHANNEL  FLOOR.  GO  TO  131  ***** 


IF  <DC+Yd,6>.  OT.  0.  01*DC)  00  TO  131 

C .  IF  PLUME  IS  ON  THE  CHANNEL  FLOOR,  TEST  FOR  FROUDE  NUMBER . 

FROUDE*  RQA*UA*UA/ ( DENS-ROA ) *0*DI A J£T*0,  01 

C . IF  FROUDE.  LT.  0. ,  PLUME  WILL  RISE,  GO  TO  132 . 

IF  (FROUDE.  LT.  0.  )  GO  TO  132 

C . IF  FROUDE.  OT.  25.  ,  PLUME  WILL  BE  NEUTRALl  Y  BUOYANT,  GO  TO  132. 

IF  (FROUDE.  OT.  25.  )  GO  TO  132 

C . FOR  25.  OT.  FROUDE.  GT.  0.  ,  GRAVITY  SPREADING  IS  POSSIBLE . 

C . SE1  ZPLUCL-DC,  AND  GO  TO  200 . 

ZPLUCL-PC 
00  TO  200 


131  CONTINUE 


C 


C****  IF  PLUMP  CENTERLINE  IS  BELOW  THE  CHANNEL  SURFACE,  GO  TO  132***** 


IF  (DC*Y(  1,6).  LT.  O.  99*DC)  GO  TO  132 

C . IF  PLUME  IS  ON  THE  SURFACE,  TEST  FOR  FROUDE  NUMBER . 

FROUDE-  ROA*UA*UA/ ( DENS-ROA  >*G*DI A JET*0.  01 

C . IF  FROUDE.  Of.  O.  ,  PLUME  WILL  FALL,  GO  TO  132 . 

IF  (FROUDE.  GT.  0.  )  GO  TO  132 

C . IF  FROUDE.  LT. -25.  .  PLUME  WILL  BE  NEUTRALLY  BUOYANT,  GO  TO  132.. 

IF  (FROUDE.  LT.  -25.  >  GO  TO  132 

C . FOR  0.  GT.  FROUDE.  OT.  -25.  ,  GRAVITY  SPREADING  IS  POSSIBLE . 

C . SET  ZPLUCL-O.  0,  AND  GO  TO  200 . 

ZPLUCL-O.  0 


GO  TO  200 
132  CONTINUE 
C 

C**#*  IF  THE  PLUMP  FILLS  THE  CHANNEL,  GO  TO  300  AND  USE  THE  NEAR 
C**«*  FIELD  POINT  SOURCE  MODEL  EQUATIONS.  ***************************** 
RC-  LAM*Y(1,2)*(-AL00(C0NC))*0.  5 
IF  (2.  0*RC.  OT.  DC)  00  TO  300 
IF  (2.  0*RC.  OT.  WC)  GO  TO  300 
C 

C****  IF  THE  PLUMF  CONCENTRATION  IS  VERY  DILUTE.  GO  TO  300  AND  USE  THE 
C****  NEAR  FIELD  POINT  SOURCE  MODEL  EQUATIONS************************** 


IF  (Yd,  1).  LT.  0.  00001*DENS)  00  TO  300 
133  CONTINUE 

IF  (COUNI .  LT.  3)  GO  TO  100 

C . FOR  COUNT.  OT.  3  CALL  HAWING  TO  CONTINUE  INTEGRATION  OF  THE 

C . PLUME  MODEL  EQUATIONS . 

137  H  -  HAMIN0(6.  Y,  F,  X,  H.  TE> 

DO  140  K-1.4 
140  YH(K)-Y(1,K) 

C .  CALCULATE  RIVER  SPEED  AT  THE  DEPTH  OF  THE  CHEMICAL  PLUME. 

ZA-  (DC+Y(1, 6) >/Z0 
UA-  UO*(ZA**AF> 

C . CALL  RHS  TO  CALCULATE  THE  RIGHT  HAND  SIDES . 


CAI  L  RHS(YR,  YRS) 

00  143  K-1,4 
143  Fd.K)-YKS(H) 

Fd.  5>-C0S( Y(  1,  4) ) 

Fd.  6) -SIM Yd.  4)  ) 

IF  (M.  EQ.  1 )  00  TO  137 

C .  INCREMFNT  8TEP  COUNTER  AND  CONTINUE  INTEGRATION 


E 


oooo  n  onr>r>  n  o  o  o  on 


COUNT-  COUNU-1 

IF  (  Y  ( 1 , 6 ) .  QT.  0.  0 >  Y(l,6>-0.0 
IF  <Y<1,  6).  LT.  -DC)  Y(l,  6)— DC 
00  TO  123 
200  CONTINUE 
C 

C *■*■**  CAf.  CULATE  THE  DEVELOPMENT  OF  THE  CHEMICAL  PLUME  ABOVE  OR  BELOW 
C#***  A  FREE  SURFACE  WITH  THE  VERY  NEAR  FIELD  (COLENBRANDER 'S >  MODEL 
C***»  FOR  PLUME  CONCENTRATION,  PLUMF  WIDTH  AND  VERTICAL  AND  CROSS- 
C****  STREAM  DISPERSION  COEFFICIENTS  ******#*****•**«*#**#####*'*#*#### 
XCONV^Y ( 1 ,  3) 

ZCONV- Y  (1,6) 

CVCON-YU,  1> 

XSTART-O.  0 
XPS-O.  0 

..WRITE  OUT  THE  LAST  VALUES  COMPUTED  BY  OOMS  MODEL  (TO  COMPLETE 

.  .  LISTING  FOR  X-DISTAN) . 

IF  (IAO.EQ.O)  WRITE  (3,  734)  Y(l,  3), -Y(l,  6).  Y(l,  1 ) 

IF  (IAO.EQ.O)  WRITEO,  780) 

IF  (IAO.EQ.O)  WRITEO,  781) 

IF  (IAO.EQ.O)  TYPE  *,  '  BEGIN  GRAVITY  SPREADING  CVNF3  MODEL  ' 

.  .  CALCULATE  VALUES  FOR  THE  CONSTANTS  NEEDED  FOR  COLENBRANDER 'S 

.  .  MODEL . 

H~H*S.  0 
AF1  -AF+1. 0 
AFM1  -1.  /AF1 
AFM12*0.  3-AF 
GAM  -1.087743 
OAMRT-  SORT (OAM) 

PI2R  -SQRT(PI/2) 

BTA  -  0.  300 
Dl  A-  SORT  (2.  0*EYNF/U0) 

BM1  -  1.  /BTA 
B2M1-  2.  0-8111 
DELRO-  ( DEN3-R0A  > /DENS 
CA-  2.  *Y(1,  1) 

DPLU-  ROA  +  CA-*DELRO 
CA6  -8.  *BTA/P I 
CVO  -  DLA*SGRT(2.  ) 

CBEFF-O.  3*SQR I (PI) 

Cl  -  VX*U8T *AF  1  *AF  1  / ( ZO*UO ) 

C2  -  0AM/AF1 

IF  (DENS.  OT.  ROA)  C3»G*(DPLU-R0A)/(R0A*UST*UST) 

IF  (DfcNS  LT.  ROA)  C3-G*(ROA-DPLU)/(ROA*UST*UST) 
r 4  -  DPLU»U0*Z0/AF1 

IF  (DENS.  OT.  ROA)  C3-  OAM*OAMRT*SGRT(G*ZO/(UO*UO*AF1 ) ) 

IF  (DENS.  LT.  ROA)  C3-  0AMRT*8GRT(0*Z0/ CU0*U0*AF1 ) > 

C6  -  C A6* ( DLA*P I2R)**BM1 

..CALCULATE  THE  VALUE  OF  THE  DENS I METRIC  FROUDE  NUMBER . 

FROUDE-  R0A*U0*U0/(A88(DENS-R0A>*G*DIAUET*0.  01 > 

.  .  IF  ABS(FROUOE).  LT.  0.  6,  SWITCH  TO  THE  POOL  SPREADING  MODEL.  .  .  . 

IF  (ABS(FROUDF)  .  OT.  0.  6)  GO  TO  204 

.  .  USE  THE  POOL  SPREADING  MODEL . 

. COMkUIE  THE  EQUILIBRIUM  SIZE  OF  THE  DENSE  CHEMICAL  POOL.  .  .  . 

.  CALCULATE  MA8S  FLOWRATE  OF  DILUTE  CHtMICAL  SOLUTION  INTO  THE 

.  POOL  FROM  A  MASS  BALANCE  BASED  UPON  THE  VALUE  OF  CA . 

QMIN-  DENS* Q I N I T* ( DELRO+RQA / C A ) 

.  .CALCULATE  THE  RATE  OF  MASS  UPTAKE  FROM  THE  POOL . 

XS-  0.  0 

. .  INITIALIZE  VARIABLES . 

.  DEFINE . 

. SA*-  (8Z/Z0>**AF1 . 

. SR-  Cl/APHI . 
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SA-  0.  0 
APHI-  0.  62 
SR-  Cl/APHI 

. CALL  RUNCE  TO  INTEGRATE  EQUATION  FOR  (SZ/Z0)**AF1 . 

201  IF  (RUNOEU,  SA,  SR,  XS.  H).  NE.  1 )  00  TO  202 
SZ-  Z0*(SA«-*AFM1) 

HEFF-  C2-+SZ 
RICH-  C3-*HfeFF 

APHI-  0.62  ♦  1.  3911*(RICH**0.  7> 

. UPDATE  RI0H1  HAND  SIDE  FOR  RUNOE . 

SR-  Cl/APHI 
00  TO  201 

202  CONTINUE 

SZ-  Z0*(SA**AFM1) 

HPFF-  C2-*SZ 
RICH*  C3*HfcFF 

APHI-  0.62  +  1.  39U*(RICH**0.  7) 

SR-  Cl/APHI 

. CALCULATE  MASS  UPTAKE  RATE  USING  COLENBRANDER 'S  EQUATION . 

QMi>OT-  C4*SA/XS 

QMOUT-  QMDOT*XS*XS 

IF  (QMIN.  OT.  QMOUT)  00  TO  201 

. SET  INITIAL  VALUES  OF  COLENBRANDER  VARIABLES . 

YK  < 1 ) •  SA 
B-  0.  5-*XS 
SY-  0.  0 
YR  <2)—  B 
YK ( 3 ) —  SY 

X-  Y<1,  5)  ♦  0.  5*XS 
00  TO  205 

. MATCH  THE  OOMS'  MODEL  PLUME  PROFILE  TO  COLENBRANDER 'S  PLUME 

.  PROFILE . 

204  CONTINUE 
YR<3)-0. 

YK  <  2 ) —  C  BEFF*LAM* Y (1,2) 

SZ-  YK ( 2 ) /CAM 

YR < 1 ) -  (SZ/Z0)**AF1 

205  CONTINUE 

.  INITIALIZE  STEP  COUNTER  ANO  FIRST  ROW  OF  Y  MATRIX  IN  PREPARA- 

. TION  FOR  INTtORATION  OF  COLENBRANDER 'S  PLUME  MODEL  EQUATIONS. 

CCA-  (CA)*YK(1)*YR<2) 

INT  -  10 
COUNT  -  0 
DO  206  U-1,3 
TE(J>  -  0. 

206  YC4,  J)  -  YK(J) 

. CALL  RUNOE  TO  INTEGRATE  ACROSS  THE  FIRST  THREE  STEPS . 

208  IF  (RUNG*  <3, YR, FR, X, H) . NE.  1 )  GO  TO  210 

. RICHARDSON  NUMBER  DEPENDS  UPON  LOCAL  VALUE  OF  CCNCENTRA— 

. TION,  HENCE  UPDATE  CA,  DPLU  AND  C3  WHEN  CALLING  RHS2.  .  .  . 

CA-  CCA/ < YK ( 1 >*YR  <2 ) ) 

DPLU-  ROA  ♦  DELRO*CA 

IF  (DENS.  GT.  ROA)  C3»0*(DPLU-R0A)/(R0A*UST-*UST) 

IF  (DENS.  LT.  ROA)  C3«0*(R0A-DPLU)/(R0A*UST-*UST) 

. CALL  RHS2  TO  CALCULATE  THE  RIGHT  HAND  SIDES  FOR  THE  NEXT  STEP 

CAI  L  RHS2(YN,  YRS) 

DO  209  K-1,3 

209  FR ( K > -  YR8(K> 

00  TO  208 

210  COUNT  -  COUNT  *  1 

. COMPUTE  VALUES  OF  THE  PRIMARY  VARIABLES . 

CA  -  CC A/ ( YK ( I ) *YR ( 2 ) > 

SY  -  SQRT(YK(3) ) 


B  -  YR(2)  -  CBEFF*SY 
8Z  -  (YR(1M*AFM1)*Z0 
I SUB  -  4  -  COUNT 

.  TRANSFER  COMPUTED  VALUES  FROM  RUNOE  INTO  Y  AND  F  MATRICES. 

. TO  PROVIDE  INITIAL  DATA  NEEDED  BY  HAMING . 

DO  213  J-1,3 
213  Y(ISUB,  J>  -  YR(U> 

. RICHARDSON  NUMBER  DEPENDS  UPON  LOCAL  VALUE  OF  CONCENTRA- 

. TION,  HENCE  EVALUATE  CA.  DPLU  AND  C3  INCLUDING  EFFECT  OF 

. SIDEWAI  L  IMAGES  ON  CENTERLINE  CONCENTRATION . 

AROl-  (WC-2-*AlOC-B)/SY 

ARQ12«(2*WC-B)/SY 

IF  <ARGt.  LT.  0.  0)  AR01-0. 

IF  (ARG12.  LT.  0.  O)  AR012-0. 

A801-AR01*AR01 
ASQ12«AR012*AR012 
AR02-  <WC+2*AL0C-B)/SY 
AR022- ( 2*WC-B ) /8Y 
IF  (AR02.  LT.  0.  0)  AR02-0. 

IF  (ARG22.  LT.  0.  0)  ARG22-0. 

A8Q2-ARQ2*ARG2 

A8Q22-AR022+AR022 

C IMAGE*  CA*(EXP(-ASQ1 )  ♦  EXP(-ASQ12)  +  EXP(-ASQ2)  +  EXP<-ASQ22>) 

CAI-  CA  C IMAGE 

DPLU-ROA+CA-*DELRO 

IF  (DENS.  OT.  ROA)  C3-0* < DPlU-ROA ) / < ROA*UST*UST ) 

IF  (DENS.  LT.  ROA)  C3-0* ( ROA-DPLU ) / ( ROA*UST*UST ) 

. CALL  RHS2  TO  CALCULATE  THE  RIGHT  HANO  SIDES  FOR  THE  NEXT  STEP.  .  . 

CAI  L  RHS2(YH,  YRS) 

DO  217  K-1,3 
217  F<ISUB.K>-YRS(K) 

. PRINT  VALUES  OF  PLUME  CENTERLINE  CONCEN I  RATION,  DISPERSION 

. COEFFICIENTS.  AND  PLUME  WIDTH  WHENEVER  X-  DISTA . 

220  CONTINUE 

IF  (COUNT.  LE.  3)  GO  TO  223 
CA  -  CCA/(Y(1,  1>*Y(1,2>> 

8Y  -  SGR T(Y(1#3>) 

8  •  Y(l,2>  -  C8EFF*SY 
SZ-  (Y(l,  1)-*#AFM1)*Z0 

. INCLUDE  Ef-FECT  OF  SIDEWAI.  L  IMAGES  ON  CENTERLINE  CONCENTRATION 

AROl-  ( WC-2-*AL0C-8  >  /SY 
AR012-(2-*WC-B  >/SY 
IF  (AROl.  LT.  0.  0)  ARC  1-0. 

IF  (AR012.  LT.  0.  0)  ARG12-0. 

ASQi- AROl ♦AROl 
ASQ12*  ARG12*AR012 
AR02-  (WC+2*AL0C-B)/SY 
ARG22-  ( 2*WC-B )  /SY 
IF  (AR02.  LT.  0.  0)  AR02-0. 

IF  (ARG22.  LT.  0.  0)  AR022-0. 

A8Q2-  AR02*ARG2 
ASQ22-ARG22-+AR022 

CIMAOE-  CA*(EXP(-ASQ1)  ♦  EXP(-ASQ12)  EXP(-ASQ2)  +  EXP(-ASQ22>> 
CAI-  CA  ♦  CIMAOE 

. TEST  WHETHER  X03S  IS  IN  THE  VERY  NEAR  FIELD  REGION . 

.  IF  SO-  TRANSFER  TO  BLOCK  350  FOR  OUTPUT . 

.  IF  NOT,  CONTINUE  THE  VNF  MODEL  COMPUTATION . 

IF  (IAG.  EO.  1.  AND.  X.  OT.  XOBS)  GO  TO  350 
IF  (IAG.  EQ.  1.  AND.  X.  LT.  XOBS)  GO  TO  223 
IF  (X.  LT.  DISTA)  00  TO  223 
WRITEO,  708)  X.  CAI,  SY.  SZ.  8,  Y(  1, 2) 

DISTA- DISTA  ♦  D I STAN 
223  CONTINUE 
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C . SWITCH  TO  THE  INTERMEDIATE  FIELD  MODEL  WHEN  (SZ  GE.  0.  5*DC>.  .  .  . 

IF  (SZ.  GE.  0.  5*DC>  00  TO  270 
IF  (  COUNT.  LT.  3  )  00  TO  208 

C . CALL  HAMINO  TO  INTEGRATE  THE  PLUME  MODEL  EQUATIONS . 


227  M  -  HAMIN0<3,  Y.  F.  X.  H.  TE> 

DO  230  Kali  3 
230  YK  <  K  > -Y ( 1 <  K ) 

. RICHARDSON  NUMBER  DEPENDS  UPON  LOCAL  VALUE  OF  CONCENTRA- 

.  TICN.  SO  EVALUATE  CA.  DPLU  AND  C3  INCLUDING  EFFECT  OF 

. SIDEWALL  IMAGES . 

DPLU-  ROA  ♦  CA-*D£LRO 

IF  < DENS.  «T.  ROA )  C3-G*  (  DPLU-ROA ) / (  ROA*UST*UST  > 

IF  <DENS.  LT.  ROA)  C3-C*(ROA-DPLU)/<ROA*UST*UST) 

. CALL  RHS2  TO  CALCULATE  THE  RICHT  HAND  SIDES  FOR  THE  NEXT  STEP 

CALL  RHS2(YR.  YRS) 

DO  233  K-1.3 
233  F(l. K)-YRS(K) 

IF  (M.  EU.  1)  00  TO  227 

. INCREMt-NT  STEP  COUNTER  AND  CONTINUE  INTEGRATION . 

COUNT  -  COUNT  +  1 

. CALCULATE  8  AND  TEST  WHETHER  B.  LE.  0.  ? . 

.  IF  SO.  00  TO  237 . 

B  -  Y(1.2>  -  CSEFF*SY 
IF  (B.  LF.  0.  )  00  TO  237 
00  TO  2vO 
237  CONTINUE 

.  FOR  3-0.  USE  A  SIMPLIFIED  SET  OF  PLUME  MODEL  EQUATIONS . 

. CALCULATE  THE  VIRTUAL  ORIOIN  DISTANCE  FOR  SY,  RESET 

. TME  INlEORATION  COUNTER.  ANO  NEGLECT  FURTHER  GRAVITY 

.  SPREADING  OF  THE  CHEMICAL  PLUME . 

B-  0. 

XV  -  <SY/CV0)**BM1  -  X 

. CALCULATE  SY  AS  IF  FOR  A  POINT  SOURCE . 

.  INCREASE  3TEP  SIZE  TO  REDUCE  COMPUTING  TIKE . 

H-  10.  *H 
COUNT  -  O 
TE2  -  0. 

Yf-  «  Y<1,  1) 

. CALL  RUNOE  TO  INTEGRATE  ACROSS  THE  FIRST  THREE  STEPS . 

240  IF  (RUNQEU.  YF,  FF,  X.  H>  .  NE.  1)  GO  TO  243 
SY  -  CVO#<X+XV)**BTA 
8Z  -  Z0*(YF**AFM1> 

BEFF  -  C8EFF-SY 
CA  -  CC4/<YF*B£FF> 

. RICHARDSON  NUMBER  DEPENDS  UPON  THE  LOCAL  VALUE  OF  CONCENTRA- 

.  TION.  HENCE  EVALUATE  CA.  DPLU  AND  C3 . 

DPLU-  ROA  +  CA*DELRO 

IF  ( DENS.  QT.  ROA )  C3-0*  <  DPLU-ROA ) / ( ROA*UST*UST ) 

IF  (DENS.  LT.  ROA)  C3-0*(R0A-DPLU)/(R0A*UST*UST) 

HEPF-C2#SZ 
RICH=-C3»HEPF 

APHI-  0.62  ♦  1. 3911*(RICH**0.  7) 

. COMPUTE  THE  RIGHT  HANO  SIDE  FOR  RUNOE . 

FF-  Cl /APHI  -YF*BTA/ ( X+XV  > 

00  TO  240 

. TRANSFER  COMPUTED  VALUES  FROM  RUNOE  INTO  Y  ANO  F  MATRICES  TO 

. PROVIDE  THE  INITIAL  DATA  NEEDED  BY  HAMINO . 

243  COW  I  «  COUNT  ♦  1 
I SUB  -  4  -  COUNT 
Y( I SUB. 1)  -  YF 

C . COMPUTE  VALUES  OF  THE  PRIMARY  VARIABLES . 

8Y  -  CV0*((X+XV)**BTA) 

SZ  -  Z0*(YF-**AFM1> 
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BEFF-  CSEFF-*SY 
CA  -  CCA/(YF*BEFF> 

. RICHARDSON  NUMBER  DEPENDS  UPON  THE  L0CA1  VALUE  OF  CONCENTRA- 

. T10N,  HENCE  EVALUATE  CA.  DPLU  AND  C3 . 

DPLU  -  ROA  +  CA*DELRO 

IF  (DENS.  OT.  ROA)  C3»G*(DPLU-R0A)/(R0A*UST*UST> 

IF  (DENS  LT.  ROA)  C3»0*(R0A-DPLU> / ( ROA«UST*UST ) 

HEFF-C2*SZ 
RICH=  C3-*H>FF 

APHI-  0.62  1. 3911*(RICH**0. 7) 

. COMPUTE  THE  RIGHT  HAND  SIDE  FOR  INPUT  TO  HAMING . 

FF-  CI/APHI  -  YF*3TA/(X+XV> 

FdS'JB.  1)  -  FF 
247  CONTINUF 

. PRINT  VALUES  OF  PLUME  CENTERLINE  CONCENTRATION,  DISPERSION 

. COEFFICIENTS,  AND  PLUME  WIDTH  WHENEVER  X*  DISTA . 

IF  (IAO.  EG.  0.  AND.  X.  LT.  DISTA)  GO  TO  250 
IF  (COUNT.  LE.  3)  00  TO  250 

. COMPUTE  VALUES  OF  THE  PRIMARY  VARIABLES . 

SY  -  CVO*( (X+XV)**BTA> 

BEEF-  Cfc>EFF*SY 

CA  «  CCA/(Y(1, 1>*BEFF) 

SZ  -  Z0*(Y(1,  1)**AFM1) 

.  INCLUDE  EFFECT  OF  SIDEWALL  IMAGES  ON  CENTERLINE  CONCENTRATION 

ARGl-( (WC-2*AL0C)/SY>*«2 
AR012*( (2«WC)/SY)*«2 
ARQ2-  (  (  WC+2-+AL0C  )  /SY )  **2 
ARG22- ( ( 2  *  WC ) /S Y ) **2 

CIMAGE-  C A* ( EXP ( -AROI  )  -HEXP ( -ARG 1 2  >  +EXP ( -ARG2 )  +EXP ( -ARG22 )  ) 

CAI-  CA  ♦  CIMAGE 

.  TEST  WHETHER  XOBS  IS  IN  THE  VERY  NEAR  FIELD  REGION . 

.  IF  30.  TRANSFER  TO  BLOCK  350  FOR  OUTPUT . 

.  IF  NOT,  CONTINUE  THE  VNF  MODEL  COMPUTATION . 

IF  (IAO.  EQ.  1.  AND.  X.  OT.  XOBS)  00  TO  350 
IF  (IAO  EQ.  1.  AND.  X.  LT.  XOBS)  GO  TO  250 
WHITE (3.  783)  X.  CAI,  SY,  SZ,  S,  BEFF 
DISTA-  DISTA  +  DISTAN 
250  CONTINUF 

. RICHARDSON  NUMBER  DEPENDS  UPON  LOCAL  VALUE  OF  CONCENTRA- 

.  TION,  HENCE  EVALUATE  CA,  DPLU  AND  C3 . 

CA-  CCA/(Y(1,  1>*BEFF> 

DPLU-  ROA  +  CA-DELRO 

IF  (DENS.  OT.  ROA)  C3-0* (DPLU-ROA) / (ROA*UST*UST> 

IF  ( DENS.  LT.  ROA )  C3-0*  <  ROA-DPLU ) / ( ROA*UST*UST ) 

SZ-  ZO* ( Y ( 1 , 1) **AFM 1 ) 

HFVF-  C2*SZ 
RICH-  C3+HEFF 

APHI-  0.62  ♦  1. 391I#(RICH**0.  7) 


C . SWITCH  TO  THE  INTERMEDIATE  FIELD  MODEL  IF  (SZ.  GE.  0.  5*DC  ) 

IF  (SZ.  OF.  0.  5*DC>  00  TO  270 
IF  (  COUNT.  LT.  3)  00  TO  240 

C . CALL  HAMING  TO  INTEGRATE  ACROSS  THE  NEXT  STEP . 


253  M-  HAMINGd,  Y.  F,  X.H,  TE) 

8Z-  Z0*(Y(l,  1>**AFMU 
HFFF-  C?*SZ 
RICHr  C3-*HEFF 

APHI-  0.62  1.  3911*(RICH**0.  7) 

F<  1, 1 )  -  Cl/APHI  -  Y(l« 1 )*BTA/ < X+XV) 

IF  (M.  EQ.  1 )  00  TO  253 

C .  INCREMENT  STEP  COUNTER  AND  CONTINUE  INTEGRATION 

COUNT  -  COUNT  ♦  1 
00  TO  247 
260  CONTINUE 
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WHITE <3,  787) 

270  CONTINUE 

C****  TRANSITION  TO  THE  INtERMEDIATt  FIELD  MODEL  FROM  C0LEN3RANDER 'S 

C****  VEKY  near  field  model*  *+*++•»+■***■***+*■+*++■+■»■*»+#+**#**+**+***+*** 


C . DEFINE  XCLLS-  DISTANCE  FOR  CONVERSION  TO  THE  CIF3  MODEL . 

XCLLS--  X 

C . CALCULATE  TH>*  DISTANCE  FOR  CONVERSION  TO  THE  CFF3  MODEL . 

XXIF-  0.  3*UK«WC*WC/EYNF 

C . WRITE  OUT  THR  INITIAL  CONDITIONS  THAT  WfcRE  INPUT  TO  THE  VNF.  .  . 

C . MODEL . 

WRITEOi  702) 

WRITE (3.  710)  UR.  DEWS.  YR2.  YR3,  YR4,  YR5.  -YR6 

C . WRITE  OUT  THE  FINAL  CONDITIONS  COMPUTED  BEFORE  TRANSFER  TO . 

C .  THE  INTERMEDIATE  FIELD  MODEL . 

WRITE <3.  703) 

WHITE <3. 731)  UH, CAI. B. BEFF, SY, SZ, X, ZPLUCL 

C . AVERAGE  THE  CONCENTRATION  DISTRIBUTION  FROM  COLENBRANDER 'S  MODEL. 

C . OVER  THE  DEPTH  OF  THE  CHANNEL  TO  GIVE  AN  EQUIVALENT  STRENGTH  FOR 

C . THE  VERTICALLY  AVERACED  LINE  SOURCE  INTERMEDIATE  FIELD  MODEL.  .  .  . 

TYPE  <♦,  '  BEGIN  INTERMEDIATE  FIELD  CIF3  LINE  SOURCE  MODEL. 

AVOC-  0  0 

DIV-  DC/99.  0 

CQSP-  EXP <-KNF*XCLLS/UR ) 

C . LEFT  AND  RIGHT  IMAGES  ARE  INCLUDED  IN  CAI . 

DO  273  LI-1. 100 

C . PRIMARY  PLUME . 

C08P1-  EXP<—< (LI#DIV/SZ )**AF1 > ) 

C . REFLECTION  ABOUT  THE  OPPOSITE  SURFACE . 

C08P2-  EXP <  — ( ( (2.  *DC-LI*DIV)/SZ)**AF1) ) 

C0SP3=  EXP<-<<<2.  *DC+LI*DIV)/SZ>**AF1) ) 

C . COMBINE  TERMS . 

C08M-  COSP-nCAI-* (COSP  1+CQSP2+CGSP3 > 


273  AVOC-  AVGC  ♦  COSM 
AVOC-  AVGC/ 100. 

00  TO  30? 

C 

C**«*  NEAR  FIELD  POINT  SOURCE  MODEL  #*•♦#*#*■*#*•»■*•**•*•**■**■****■****#*****##** 


C . DIFFUSION  IN  BOTH  VERTICAL  AND  CROSS  STREAM  DIRECTIONS 

C . CALCULATE  THE  LOCATION  OF  THE  STREAMWISE  ORIGIN  FOR  THE.  . 

C . NEAR  FIELD  MODEL . 


300  CONTINUE 


TYPE  ■*.  '  BEGIN  NEAR  FIELD  CNH  POINT  SOURCE  MODEL. 

XC0NV*Y<1.  3) 

ZCONV^YCl.  6) 

CVC0N-Y(1.  1) 

C . WRITE  OUT  THE  LAST  VALUES  COMPUTED  IN  OOMS'  MODEL . 

C . <T0  COMPLETE  THE  LISTING  OF  VALUES  WHEN  X=  DISTAN) . 

WRITEC3. 731)  Y< 1.  5) .  -Y< 1 ,  6) . Y< 1. 1 ) 

C . WRITE  OUT  THE  INITIAL  CONDITIONS  USED  BY  THE  CVNF3  MODEL.. 

WRITE (3. 702) 

WRITE (3.  710)  'JR.  DENS.  YR2.  YR3-  YR4,  YR5,  -YR6 

C . WRITE  OUT  THE  FINAL  CONDITIONS  AT  TRANSFER  FROM  THE  CVNF3. 

C . MODEL  TO  THE  NEAR  FIELD  CNF 3  MODEL . 

WRITE (3.  703) 

WRITEO.  710)  UR,  CVCON,  Y(  1,  2) ,  Y<  1 , 3) .  Y<  1 ,  4) ,  Y<  1,  5) ,  -Y<  1,  6) 
WRITE<3.  714)  XX.  AH.  H 

WRITEO.  727)  EXNF.  EYNF.  EZNF,  EXIF,  EYIF,  EXFF 
WRITE (3, 72$)  ALTL 

C . CALCULATE  THE  DISTANCE  FROM  A  VIRTUAL  ORIGIN  FOR  THE  POINT 

C . SOURCE  MODEL  THAT  WIU  GIVE  A  PLUME  WITH  THE  SAME  CROSS-. 

C . SECTIONAL  AREA  AS  OOMS'  PLUME . 

XSTAR  T-( <LAM*LAM  >*(Y(1.2)*Y<1,2>) *UR  > / ( 4.  0*  <  EYNF*EZNF  >  **0.  5 ) 
XPS— XSTART— XCONV 
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C 


. CALCULATE  THE  DISTANCE  FOR  CONVERSION  TO  THE  EIF3  MODEL . 

XCLLS“0.  3*U**DC*DC/EZNF 

. CALCULATE  THE  DISTANCE  FOR  CONVERSION  TO  THE  CFF3  MODEL . 

.  FROM  THE  POINT  SOURCE  MODEL  ORIGIN . 

XXIF-O.  3*UR*WC*WC/EYNF 

. AVERAGE  THE  CONCENTRATION  DISTRIBUTION  FROM  THE  CNF 3  MODEL.  .  . 

.  OVER  THE  DEPTH  OF  THE  CHANNEL  TO  GIVE  AN  EQUIVALENT  STRENCTH. 

. FOR  THF  VERTICALLY  AVERAGED  LINE  SOURCE  CIF3  MODEL . 

AVOC-O.  0 
DIV-DC/99.  0 
DO  301  LI-1,  ICO 

CP81M«(MACS/(4.  0*PI*XCLLS*<  (EYNF*EZNF)**0.  5) >  >* 

1 <EXP (-KNF*XCLLS/UR > > 

CPSI1M-EXP (-(UR*( ( < (LI-1 >*DIV>+Y(1,  6) >**2.  0) >/(4.  0*XCLLS*EZNF> ) 
CPSI2M-EXP( (-(UR*( (2.  0*AL0C-WC >**2.  0) >/(4.  0*XCLLS* 

1EYNF) )-( (US*( ( ( (LI-1 )*DIV)+Y(1. 6) >**2.  0) )/(4.  0*XCLLS 
2#EZNF ) >  > 

CPS 1 3M-EXP ( - ( UR* ( ( ( (LI-1 )*DIV)-2.  0*DC-Y( 1, 6) >**2.  0) >/(4.  0*XCLLS 
1*EZNF> ) 

CPSI4M-EXP(  (-(UR*(  (2.  0*AL0C+WC  >*-*2.  0) >/(4  0*XCLLS* 

1EYNF) )-( (UR*( ( ( (LI-1 >*DIV)+Y( 1, 6) >**2.  0>  >/(4.  0*XCLLS 
2»EZN'F )  ) ) 

CPS1SM«EXP(  — (UR*( ( ( (LI-1)*DIV)-Y(1.  6) >**2.  0) )/(4.  0*XCLLS*EZNF ) > 
CPSM-CPS 1 M* ( CPS 1 1 M+CPS I 2M+CPS 1 3M+C  PS I 4M+CPS 1 5M  > 

301  AVOC— AVGC+CPSM 
AVOC — A VGC / 1 00.  0 

TYPE  <*.  '  BEGIN  THE  INTERMEDIATE  FIELD  CIF3  LINE  SOURCE  MODEL. 

302  CONTINUE 

. THIS  SECTION  DETERMINES  THE  DISTANCE  FROM  A  VIRTUAL  ORIGIN.  .  . 

. FOR  THE  CIFJ  MODEL  TO  MATCH  THE  CONCENTRATION  GIVEN  BY  THE.  .  . 

. CNF  3  MODEL . 

MN-0 

XXLS— XLSIKC 
304  TTLS^O.  O 

DO  307  IK-1,20 

TLS1-CQS(IK-*PI*(  (WC/2.  0)+AL0C)/WC> 

TLS2-C0S ( I K*P I*( ( WC/2.  0> +ALOC  > / WC  > 

TL83»EXP(-(IK*#2)*(PI**2.  0 ) >EYIF*XXLS/ (UR* ( WC**2.  O) ) > 

TLS-TLS 1  •*  TLS2*  TLS3 
307  TTLS-TTLS+TLS 

CCLLS- ( MACS/ ( UR*DC*WC  > ) * ( 1 +2*TTLS >*<EXP(-KIF*X XLS/UR ) > 

RL8PS-CCLLS/AVQC 

IF  (KN.  EQ.  1)  GO  TO  310 

IF  (MN.  EG.  2)  GO  TO  313 

IF  (RL5PS.  EQ.  1.0)  GO  TO  317 

IF  (RLSPS.  LT.  1.  0)  MN-l 

IF  (RLSPS.  LT.  1.  0)  GO  TO  310 

IF  (RLSPS.  OT.  1.  0>  MN-2 

GO  TO  313 

310  IF  (RLSPS.  LT.  (1.  O-SLCONC) )  XXLS-XXLS-XLSINC 
IF  (RLSPS.  LT.  (1.  O-SLCONC)  )  GO  TO  304 
00  TO  317 

313  IF  (RLSPS.  OT.  (1.  O+SLCONC > >  XXLS-XXLS+XLSINC 
IF  (RLSPS. OT.  (1.  O+SLCONC))  GO  TO  304 
317  CONTINUE 

XFS-( ( (UR*UK+4.  0*KFF*EXFF>**0.  S)*SPTIME>-(4.  0*( <EXFF*SPTIME> 
1**0  9) >-(XCLLS-XXLS) 

XLS-XXLS-XCLLS+XPS 

. THE  CONDITIONS  FOR  TRANSITION  TO  AND  FROM  ALL  MODELS  ARE . 

. COMPLETE.  THE  PROGRAM  NOW  PREPARES  TO  COMPUTE  THE  CONCEN-.  .  . 

. TRATION  DISTRIBUTION  AT  USER  SPECIFIED  CO-ORDINATES . 

. HERE,  I AC  IS  SET  -  1,  IN  PREPARATION  FOR  COMPUTATION . 

. OF  CONCENTRATION  AT  USER  SPECIFIED  LOCATIONS . 
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IF  ( XSTART.  EQ.  0.  >  00  TO  318 
UR I TE ( 3, 728  >  XCCNV,  XPS,  CVCON 
WRITE (3.  733)  XCLLS-XPS,  AVOC 
WRITE <3/  737)  XLS, RLSPS 
WRITEO,  747)  XXIF-XLS,  XFS-XXIF+XLS 
TYPE  ♦,  '  ' 

TYPE  *,  'CONVERSION  FROM  VNF  TO  NF  OCCURS  AT  X  *  XCONV,  '  M' 

TYPE  ■*,  '  ' 

TYPE  +  ,  'CONVERSION  FROM  NF  TO  IF  OCCURS  AT  X  *  ',  XCLLS-XPS,  '  M ' 
TYPE  +,  '  ' 

TYPE  *,  'CONVERSION  FROM  IF  TO  FF  OCCURS  AT  X  =>  '.XXIF-XLS,  '  M' 
TYPE  +,  '  ' 

CO  TO  319 

318  URITEO,  729)  XCCNV,  ZPLUCL,  CVCON 
URITEO.  730)  XCLLS,  AVOC,  XXLS.  RLSPS 
WRITEO,  747)  XXIF-XLS,  XFS-XXIF+XLS 
TYPE  +,  '  ' 

TYPE  +,  'CONVERSION  FROM  OOMS  CVNF3  MODEL  TO  CCLFNBR ANDERS  -CVNF3  ' 
TYPE  •*,  'MODEL  OCCURS  AT  X-  ',  XCONV,  '  M' 

TYPE  +,  '  ' 

TYPE  *,  'CONVERSION  FROM  COLENBRANDEKS  CVN+3  MODEL  TO  THE' 

TYPE  ■*,  '  INTERMEDIATE  CIF3  MODEL  OCCURS  AT  X-  ',  XCLLS,  '  M' 

TYPE  +,  '  ' 

TYPE  *, 'CONVERSION  FROM  CIF3  TO  CFF3  OCCURS  AT  X-  ', XXIF-XLS, '  M' 

319  CONTINUE 
XXCONV-XCQNV 
XXCLLS-XCU.S 
XXPS-XPS 
XLSS-XLS 
XXI1F-XXIF 
XXFS=XFS 

CO  TO  417 

320  CONTINU, 

. XOBS  LIES  WITHIN  THE  CVNF3  OF  THE  PLUME . 

.  THIS  SECTION  COMPUTES  THE  REQUIRED  IMAGES  WITH  AN  OBSERVER. . 

. LOCATED  AT  XOBS,  YOBS-  AND  ZOBS . 

PLURAO-Y (1,2) *LAM+ ( -ALOQ  <  CONC ) >  *+0.  S 
ID-1 

IF  (ZOBS.  EO. -1.  0)  ZZOBS”- Yd,  6) 

IF  (ZOBS.  EQ. -1.  0)  GO  TO  323 
Z ZOBS* ZOBS 

323  COOMl-EXP(-( ( Y03S-AL0C  >  +  ( YOBS-ALOC )  +  ( ZZQBS+Y< 1,6) >*(ZZOBS+ 

1Y( 1, 6) > )/((LAM*LAM)*( (Y( l,  2) )*<Y( 1, 2) ) >  > ) 

C00M2-EXP ( - ( <  YOBS-wC+ALOC )  +  <  YOBS-WC+ALOC )  +  ( ZZOBS+Y ( 1 ,  6 ) ) * ( ZZOBS+ 

1 Y( 1, 6) )  >/(  (LAM*LAM)*(  (Yd.  2) >*(Y(1, 2) >  > ) > 

C00M3*EXP ( - ( ( YOBS-ALOC ) * ( YOBS-ALOC )  +  ( Z  ZOBS-2.  0*DC-Y ( 1 , 6  > ) * ( Z  ZOBS 
1-2.  0*DC-Y(1, 6) > )/( (LAM*LAM>#( (Y(1,2))*(Y(1,2))))> 

C0QM4*EXP ( - ( ( YOBS+WC+ALOC ) * ( YOBS+WC+ ALOC  >  +  ( ZZOBS+Y ( 1 , 6 > ) * ( ZZOBS+ 

1 Y( 1,  6) ) ) / ( ( LAM+LAM ) * ( (Y(l,  2) )*( Y( 1, 2) ) ) ) ) 

C0OM5*EXP  ( -  ( ( YOBS-ALOC  )  ■*  ( YOBS-ALOC  )  +  (  Z  ZOBS-Y  (1 ,  6 )  )  *  ( Z  ZOBS- Y  d ,  6 )  ) 
1 )/( (LAM*LAM>*(  (Yd,  2)  >*(Y(1, 2) )  >  >> 

COOM*C  OOM 1 +C00M2+C0CM3+C  QCM4+C  OOM  5 
CONCEN-Yd,  1MC00M 
00  TO  407 
327  CONTINUE 

.  XOBS  LIES  WITHIN  THE  CNF 3  OF  THE  PLUME . 

.  THI8  SECTION  COMPUTES  THE  REQUIRED  IMAGES  WITH  AN  OBSERVER. 

.  LOCATED  AT  XOBS,  YOBS  AND  ZODS . 

CP81-(MA3S/(4.  0*PI*(X0BS+XPS)*( < EYNF*EZNF)#*0.  5) ) )* 

1 (EXP(-K  (F+(XOBS+XPS)/UR> ) 

IF  (ZOBS.  EO. -1.  0)  ZZOBS—ZCONV 
IF  (ZOBS.  EQ.  -1.0)  00  TO  330 


ZZ03S-Z09S 

330  CPSM1-EXPI  (-(UR*(  (YOBS— ALOC  )*+2.  0>>/(4.  0*(X0BS+XPS>*EYNF 
1 ) >-((UR»((ZZ08S+ZC0NV>*+2.  0>)/(4.  0*(X03S+XPS)«EZNF) ) ) 

CPSM2»EXP( (-(UK*( (YOBS  WC+ALOC )**2.  0) )/(4.  0*(X0BS+XPS>*EYNF 
1 ) >-( (UR*( (ZZ0BS+ZCCNV>**2.  0)  >/(4.  0*(X03S+XPS>*EZNF> ) > 

CPSM3»EXP( (-(UK*( (YOBS— ALOC >*+2.  0))/<4.  0*( XOBS+XPS>*EYNF 
1 >  >-' (UR*( (ZZOBS-2.  0*DC-ZCCNV)**2.  0) >/<4.  0+(X0BS+XPS>*EZNF) > ) 
CPSM4— EXP(  (-(UN*(  ( YOBS+WC+ALOC  )*+2.  0)  )/(4.  0*(X0BS+XPS>* 

1EYNF) )-< (UR+( (ZZU3S+ZC0NV>+*2.  0>  >/C4.  0+(XQBS+XPS>*EZNF> ) ) 
CPSMS*EXP  ( (-(UR*(  C  Y03S-AL0C  )  **2.  0>>/(4.  0-*(X0BS+XPS>*EYNF 
1 ) )-( (UR*( (ZZ08S-ZCCNV>»*2.  0) >/(4.  0# ( XOBS+XPS ) *EZNF ) ) ) 
C0NCEN»CPS1+(CPSMI+CPSM2+CPSM3+CPSM4+CPSM5> 

00  TO  40/ 

350  CONTINUE 

. XOBS  LIES  WITHIN  THE  GRAVITY  SPREADING  REGION  OF  THE  CVNF3.  .  . 

.  THIS  SECTION  COMPUTES  THE  REQUIRED  IMAGES  WITH  AN  OBSERVER 

.  LOCATED  AT  XOBS,  YOBS,  AND  ZOBS . 

. VERTICAL  PROFILE . 

. IF  ZPLUCL  -  DC,  PLUME  IS  ON  THE  CHANNEL  BOTTOM . 

ZZ0BS-Z03S 

IF  (ZOBS.  EG. -1.  0)  ZZOBS-ZPLUCL 
IF  ( ZPLUCL.  LT.  DC  >  GO  TO  353 
CVO-  EXP(-( (DC-ZZOBS)/SZ)**AFl > 

CVI 1-EXP (-< (DC+ZZOBS>/SZ)**AFi> 

00  TO  356 
353  CONTINUE 

. PLUME  IS  ON  THE  CHANNEL  SURFACE . 

CVO-  EXP(-((ZZ0BS>/SZ>**AF1> 

CVI 1-EXP (-((2*DC-ZZ03S)/SZ)**AF1> 

356  CONTINUE 

. CROSS-STREAM  PROFILE . 

. PRIMARY  PLUME  IS  LOCATED  AT  Y-ALOC . 

IF  (ABS(ALOC-YOBS).  GT.  3)  GO  TO  359 
CCSO-  1. 

00  TO  362 

359  CCSO=  EXP(-<  < (A3S(AL0C— YOBS)— B)/SY)**2) ) 

362  CONTINUE 

. FIRST  IMAGE  LOCATEO  AT  Y-  UC-ALQC . 

IF  (ABS(WC— ALOC-YOBS) .  OT.  8)  GO  TO  365 
CCSI1-  1. 

00  TO  368 

365  CCSI1  -  EXP ( - < ( ( A3S ( WC-AL0C-Y03S ) -B ) /SY > **2 ) > 

368  CONTINUE 

. SECOND  IMAGE  LOCATED  AT  Y-  -( WC+ALOC > . 

IF  (A3S(-(WC+Al  OO-YOBS)  .  OT.  B>  00  TO  371 
CCSI2-  1. 

00  TO  374 

371  CCS 1 2-  EXP <-( ( (ABS (-(WC+ALOC )-Y03S )-B  > /SY) **2 ) ) 

374  CONTINUE 

. THIRD  IMAOE  LOCATED  AT  Y-  - ( 2WC-AL0C  > . 

IF  ( ABS (-(2+WC-ALOC) -YOBS >.  GT.  B)  GO  TO  377 
CCSI3  1. 

00  TO  380 

377  CCSI3-  EXP (-( ( (ABS ( - (2*WC-AL0C )-YOBS )  -3 ) /SY>**2> ) 

380  CONTINUE 

. FOURTH  IMAGE  LOCATED  AT  Y-  (2«WC+AL0C) . 

IF  (ABS(  (2HWC+AL0O-Y08S).  OT.  3>  00  TO  383 
CCSI4-  1. 

CO  TO  386 

383  CCSI4-  EXP(-( ( (A3S( (2+WC+ALOC )-Y0BS)-B)/SY)**2) ) 

386  CONTINUE 

. CALCULATE  CONCENTRATION  VALUE . 

CONCEN-  CA*(CV0+CV1 )*(CCS0+CCSI 1+CCSI2+CCSI3+CCSI4) 


00  TO  407 


C . XOBS  LIES  WITHIN  THE  CIF3 . 

C . THIS  SECTION  COMPUTES  THfc  CONCENTRATION  WITH  IMAGES 

C . FOR  A  LINF  SOURCE  WITH  DIFFUSION  IN  THE  CROSS  STREAM 

C . DIRECTION . 


400  TTLS“0.  0 

IF  (ZOBS.  EQ. -1.  0)  ZZOBS— ZCONV 
IF  (ZOBS. EQ. -1.  O)  GO  TO  401 
ZZGBS^ZOBS 

401  DO  403  IM-1,20 


C . FIRST,  THE  COSINE  TERM  FOR  THE  SPILL  LOCATION . 

TLS1*C03(IM*PI*( ( WC/2.  0>+AL0C >/WC > 

C . NEXT,  THE  COSINE  TERM  FOR  THE  OBSERVER  LOCATION . 

TLS2«C0S(  IM-*PI*(  (WC/2.  0>+V0BS)/WC  > 

C . FINALLY,  THE  EXPONENTIAL  DECAY  TERM  BELONGING  TO  THE. 

C . DOWNSTREAM  DISTANCE  FROM  THE  VIRTUAL  ORIGIN . 

TLS3*EXP(-(IM**2)*(PI**2.  0) *EYIF*( X03S+XLS > / ( UR# ( WC**2.  O) > > 
TLS-TLS 1 *TLS2*TLS3 


403  TTLS^TTLS+TLS 

CONCEN* ( MASS/ ( UR*DC*WC  > ) * ( 1 +2*TTLS ) * ( EXP ( -K IF* ( X03S+XLS ) /UR ) ) 

407  IF(IC.  NE  0>  GO  TO  410 

IF  (ZOBS.  EG. -1.  0)  WRITE(3. 738)  XOBS.  Z ZOBS.  TIMES,  WC/NUMINC 
IF  (ZOBS.  NE  -1.  O)  WRITE(3, 739)  XOBS,  ZZOBS,  TIMEE.  WC/NUMINC 
IF  ( ID.  EG.  1 )  WRITE (3,  713)  PLURAD 
IF  (ID.  NE.  1)  WRITE(3, 718) 

C . SET  IC  EQUAL  TO  1 . 

IC«1 

410  WHITE(3. 744)  YOBS,  CONCEN 
413  TIMEE-TIMEE+T IMINC 

IF  (TIMEK  QT.  T1MMAX)  GO  TO  417 
IF  (TIMEF.  OT.  SPTIME)  GO  TO  800 
00  TO  407 
417  CONTINUE 
C 

C****  PREPARE  TO  ENTfcR  ANOTHER  SET  OF  OBSERVATION  CO-ORDINATES******** 
IF  (NUMIN.  LE.  NUMINC+1)  TYPE  *,  'XOBS*  ',  XOBS,  '  Y03S*  '.YOBS. 

1'  ZOBS*  ',  ZZOBS 
IF  (NUMIN.  LE.  NUMINC)  TYPE  *,  '  ' 

IF  (NUMIN.  LE.  NUMINC)  GO  TO  420 
TYPE  *,  '  ' 

TYPE  *, 'INPUT  THE  CONVERSION  COORDINATES  ( XOBS, YOBS. ZOBS) ' 

TYPE  *,  'TO  TERMINATE  THE  RUN,  ENTER  XOBS— 1.  0  .  ' 

TYPE  *,  '  ' 

TYPE  *, 'INPUT  XOBS' 

ACCEPT  *, XOBS 
TYPE  *. '  ' 

IF  (XOBS. EQ. -1.  0)  TYPE  *.  'RUN  TERMINATED' 

IF  (XOBS.  EQ. -1.  0)  GO  TO  999 
TYPE  *,  'INPUT  ZOBS' 

TYPE  *.  'INPUT  ZOBS— 1.0  TO  03  [AIN  THE  CENTERLINE  OF  THE  PLUME' 
ACCEPT  *, ZOBS 
TYPE  *.  '  ' 

TYPE  *,  'ENIER  THE  NUMBER  OF  TRANSVERSE  INCREMENTS' 

ACCEPT  *, NUMINC 
TYPE  *. '  ' 

NUMIN*0 

IC-0 

10-0 

420  YOBS* ( -WC/2.  0>+NUM IN* (WC/NUMINC) 

NUM I N  *NUM I W* 1 
XCONV-XXCCNV 
XCLLS~XXCLLS 
XP8-XXPS 


XLS-XLSS 
XFS-XXFS 
XXIF-XXIIF 
TIMEE-O.  0 

423  IF  (TIM£E«UR.  LT.  X03S)  T I MEE»T I MEE+T I M I NC 
IF  (TIM£E*UR.  LT.  XOBS)  00  TO  423 
IF  (TIMEE.  OT.  SPTIME)  00  TO  BOO 

. IS  XOBS  IN  THE  CVNF3  REQUIRING  OOMS '  MODEL? . 

IF  (X03S.  LE.  XCONV)  00  TO  13 

. IS  XOBS  IN  THE  CVNP3  REQUIRING  C0LEN8RANDER 'S  MODEL?.  .  . 

IF  (XSTART.  EQ.  0.  0)  00  TO  426 

. IS  XOBS  IN  THE  CNF3?. . 

IF  (XOSS.  LE.  XCLLS-XPS)  00  TO  327 

.  XOBS  MUST  BE  IN  THE  CIF3 . 

00  TO  400 

.  IS  XOBS  IN  THE  CVNF3  REQUIRING  COLEN0RANDER 'S  MODEL?. . . 

426  IF  (XOBS  LE.  XCLLS)  00  TO  13 

.  XOBS  MUST  BE  IN  THE  CIF3 

00  TO  400 

990  WRITEO, 744)  STM. CONCEN 

991  STM-STM+TIMINC 

IF(STM.  GT.  TIMMAX)  00  TO  417 
XSPIL«STM«UH 

. DETERMINE  IF  THE  SPILL  HAS  REACHED  THE  OBSERVATION  POINT.  . 

IF(XSPIL.  LT.  XOBS)  00  TO  991 
IF(XSPI(  -XEND.  OT.  XOBS)  00  TO  993 

.  DETERMINE  THE  CORRECT  FLOW  REGIME  AT  THE  OBSERVATION  POINT 

XFLO=XSP IL-XOBS 

. DETERMINE  IF  THE  OBSERVATION  POINT  SEES  THE  CFF3 . 

IF  (XXIFF.  EQ.  O.  0)  00  TO  999 
IP  (XEND-XFLO.  OT.  XXIFF)  00  TO  930 

. DETERMINE  IF  THE  OBSERVATION  POINT  SEES  THE  CIF3 . 

999  IF  (XCLISS.  EQ.  0.  0)  00  TO  996 

IP  (XEND-XFLO.  OE.  XCLLSS)  00  TO  970 
.  DETERMINE  IP  THE  OBSERVATION  POINT  SEES  THE  CNF 3 . 

996  IF  (XCONV.  EQ.  0.  0)  00  TO  997 

IF  (XEND-XFLO.  OE.  XCONV)  00  TO  960 
. THE  OBSERVATION  POINT  SEES  THE  CVNF3 . 

997  00  TO  999 

993  WRITE (3. 746)  STM 
00  TO  417 

. CALCULATE  THE  CONCENTRATION  USING  THE  CVNF3  MODEL  FOR . 

. A  STEADY  FLOW  RIVER  AFTER  THE  CONTINUOUS  SPILL  HAS  STOPPED 

999  CONTINUE 
CO  TO  961 

. CALCULATE  THE  CONCENTRATION  USING  THE  CNF 3  MODEL  FOR  A.  .  .  . 

. STEADY  FLOW  RIVER  AFTER  THE  CONTINUOUS  SPILL  HAS  STOPPED.  . 

960  CONTINUE 

961  LOC  (1.1)  ■  Al  OC 
LOC  (2.  D-WC-ALOC 
LOCO.  1  >-Ai  OC 
LOC  (4.  1 )  — WC-ALOC 
LOC  (9.  1  )«Al  OC 
LOC  (1.2)  "-Y  (1.6) 

LOC  (2,  2)— Y(l.  6) 

LOCO.  2>»2.  0*DC*Y(  1.6) 

LOC ( 4.  2>— Y(l,  6) 

LOC (9.  2>-Y(l.  6) 

0MF0A-(URJIUK*4.  0*KNF*EXNF>**0.  9 
CONCEN-O.  0 
DO  910  IJU  1.  9 

RSU8N-( ( X0B8*XPS>**2.  0+ ( EXNF/EYNF ) # ( ( YOBS-LOC ( I J J,  1 > 

1 )»*2.  0>  +  (EXNF/EZNF)*( ( ZOBS— LOC ( IUJ.  2) >**2.  0) >«*0.  9 


n  o 


3 


1 

i 

i 

i 

w\" 

3 


1 

I 

L~. 

4 

3 

4 


N 


ERFN  ( 1 )  -  ( RSUBN+OMEGA*  ( STM— SPT I  ME )  >  /  (  (4.  0*EXNF*(STM-SPTIME>  >**0.  5> 
ERFN(2>-(RSUBN+0MEGA*STM)/( (4.  0#EXNF*STM>**0.  5) 

ERFN ( 3 )  -  ( RSUBN— CMEOA* ( STM-SPT I ME ) >/<  (4.  0*EXNF*(STM-SPTIME) )**0.  5) 
ERFN ( 4 )  -  ( RS'JBN-OMEGA+STM )  /  (  ( 4.  0*EXNF*STM>**0.  5> 

DO  511  IJJJ  1.4 

IP  (ERFNdJJJ).  OT.  0.  0.  OR.  ERFNdJJJ).  LT. -8.  O)  EP-O.  0 
IF  (ERFN(IJJJ).  OT.  8.  0.  OR.  ERFN(IJJJ).  LT.  -8.  0)  GO  TO  593 
EP-EXP(-(ERFNdJJJ)*£RFN(  IJJJ) > ) 

593  IF  (ERFNdJJJ).  LT.  0.  0)  IAE-1 
IF  <  ERFN ( I J  JJ ) .  GE. 0.  0 )  IAE-0 

IF  (ERFNd  JJJ).  LT.  0.  0)  ERFN<  IJJJ )  — ERFN(  IJJJ > 

ERFN(  I JJJ) -1 .  0-(0.  34802/  (  1 .  0+0.  47047*ERFN(  IJJJ)  )-0.  09587/ (  (1.  0+0.  4 
17047*ERFN( IJJJ) >**2.  0>+0.  74785/ ( <1.  0+0.  47047*ERFN( IJJJ) )*( 1.  0+ 

20.  47047*£RFN( IJJJ) >*(1.  0+0.  47047*ERFN( IJJJ) ) ) >* 

3(EXP(-ERFN( I JJJ>*+2. 0) ) 

511  IF  (IAE.EO.  1)  ERFN(  IJJJ)— ERFNdJJJ) 

ORPXU* ( OMEGA »RSUBN+ ( X03S+XPS ) *UR ) / ( 2.  O+EXNF ) 

IF  (ORPXU.  OT.  86.  0.  OR.  QRPXU.  LT. -86.  0)  ORPXU-O.  0 
IF  (ORPXU.  Or.  86.  0.  OR.  ORPXU.  LT. -86.  0)  GO  TO  510 
ORPXU-EXP (ORPXU) 

510  CONCEN-CONCEN+ ( 1 .  0/RSUBN)*< (ORPXU  >* (ERFN( 1 ) -ERFN (2) )  +  (EXP ( (-OMirGA 
1 »RSU8N+ ( XOBS+XPS ) *UR ) / < 2.  0*EXNF>  > )*(ERFN(3)-ERFN(4) ) ) 
C0NCEN«C0NC£N*MASS/(25.  1327*( ( EYNF*EZNF>**0.  5)) 

00  TO  550 

. CALCULATE  THE  CONCENTRATION  USING  THE  CIF3  MODEL  FOR . 

. A  STEADY  FLOW  RIVER  AFTER  THE  CONTINUOUS  SPILL  HAS  STOPPED.  .  .  . 

570  CONTINUF 

GMfcGAB— < UR+UR+4.  0*KIF*EXIF)**0.  5 

SUMAT-O.  O 

CCNCEN-O.  O 

DO  512  IKK-1,20 

AKK-IKK 

WSQ-(AKK*+2.  0>*9.  8696*EYIF/(WC**2.  0) 

ERF I  ( 1 )  -  ( STM* <  < QM£0A3**2.  0+4.  0*EXIF*WSQ>**0.  5>  +  (X0BS+XLS) ) / 

1 <  <4.  0+EXIF*STM>**0.  5) 

ERFI (2>»( (STM— 8PTIME)*( (0MEGA8#+2.  0+4.  0*EXIF*WSQ)**0.  5)  + 
l ( X03S+XLS ) ) / ( < 4.  O+EX IF* (STM-SPT I ME) >**0.  5) 
ERFI(3)-(STM*((OM£OA0*+2.  0+4.  0*EXIF*WSQ>++0.  5)- ( XOBS+XLS ) ) / 

1 ( (4.  0*EXIF*8TM>**0.  5) 

ERFI (4)*( (STM-SPTIME)#( (0ME0A8++2.  0+4.  0*EXIF*WSQ)**0.  5)- 
1 (XOBS+XLS) )/( (4.  0*EX I F* ( STM-SP TIME) )**0.  5) 

DO  513  IKKK-1.4 

IF  (ERFI  ( IXXK).  OT.  8.  0.  OR.  ERFIdKKK).  LT. -8.  0)  EP-O.  0 
IF  (ERFI(IXXK).  OT.  8.  0.  OR.  ERFIdKKK).  LT. -8.  0)  GO  TO  590 
EP-EXP ( - ( ERF I (I KKK  >  «ERF I ( I KKK  > ) ) 

590  IF  (ERFI(IKKK).  LT.  0.  0)  IAE-1 
IF  (ERFIdKKK).  OE.  0.  0)  IAE-0 

IF  (ERFIdKKK).  LT.  0.  0)  ERFI  (IKKK )  — ERFI  (IKKK ) 

ERFI ( IKXK)-1.  0-(0.  34802/(1.  0+0.  47047*ERFI ( IKKK) >-0.  09587/( ( 1.  0+0.  4 
17047*ERFI ( IKKK) )*(1.  0+0.  47047*ERFI (IKKK > ) >+0.  74785/ 

2((l.  0+0.  47047*ERFI ( IKKK) )*(1.  0+0.  47047+ERFI (IKKK > )*( 1.  0+0.  47047* 
3ERFI ( IKKK) ) ) )*EP 

513  IF  (IAE.EO.  1)  ERFIdKKK)— ERFIdKKK) 

XSRPXU-(X0B8+XLS)*( (OMEOAB**2.  0+4.  0*EXIF*WSQ)**0.  5/ 

1(2.  0*EX IF ) ) 

IF  (XSRPXU.  OT.  86  0.  OR.  XSRPXU.  LT.  -86  0)  XSRPXU-O.  0 
IF  (XSRPXU.  OT.  86.  0.  OR.  XSRPXU.  LT. -86.  0)  00  TO  512 
XSRP XU-E  XP ( XSRPXU ) 

512  SUMA T -SUMAT ♦ ( ( (1.  0+4.  0*EXIF*KIF/(UR*UR ) >**0.  5>*(C0S(IKK*PI* 

1  (  (WC/2.  0)+AI  OO/WC)  )*(C08(IKK*PI  +  (  (Y03S+WC/2.  0>/WC)  )  >  >/ 

2( (1.  0+4.  0»EXIF*(KIF+W83)/(UR*UR) )**0.  5)*( (XSRPXU)*(ERFI ( 1 )- 
3ERFK2)  ) ♦  ( EXP ( ( - ( X038+XLS ) * ( ( 0ME0AB**2.  0+4.  0*EXIF*WSQ 
4 )**0. 5 )  +  ( X03S+XLS ) *UR ) / ( 2.  0*EXIF) ) >*<ERFI (3)-ERFI <4) ) > 


E-55 


o  o  o  o  n 


6UMAT-2.  O+SUMAT 

ERFI  <  1 )  ■  (  <  XOBS+XLS  >  +OMEGAB+STM )  /  <  <  4.  0*EX IF+STM )  **0.  5 > 

£RFI(2)-( (XOBS+XLS)+OKEOAB*(STM-SPTIME) )/( (4.  C*EXIF* 

1  (STM-SPTIHi-  )  )  **0.  9) 

ERFI(3>-(0«p0AS*STM-(X08S+XLS>  >/( (4.  0*EXIF*STM)**0.  5) 
ERFI(4>«(0M»r©AB+(STM-SPTIMh>-(X03S+XLS> )/( (4.  0*EXIF* 

1  (STM-SPTIMP  )  >**0.  9> 

DO  914  IKKKK-1.4 

IF  (ERFI(IKKKK).  OF.  8.  0.  OR.  ERFIdKKKK).  LT.  -8.  0)  EP-O.  0 
IF  (ERFI  <  IKKKK ) .  OT.  8.  0.  OR.  ERFI  ( IKKKK) .  LT.  -0.  0)  00  TO  591 
EP-EXP (- (ERFI ( IKKKK )*ERFI( IKKKK)  )  > 

991  IF  (ERFI ( IKKKK).  LT.  0.  0)  IAE-1 
IF  (ERFI ( IKKKK >.  ©E.  0.  0)  IAE-0 

IP  (ERFI  ( IKKKK).  LT.  0.  0)  ERFI  ( IKKKK)  —  ERFI  ( IKKKK) 

ERFI  ( IKKKK  >-l.  0-(0.  34802/(1.  0+0.  47047*ERFI  ( IKKKK)  >-0.  09987/<(l.  0+ 
10.  47047+ERFK IKKKK) >*(1.  0+0.  47047+ERFI ( IKKKK >  >  >+0.  74785/ 

2( (1. 0+0.  47047*ERFI( IKKKK) >*(1.  0+0.  47047#ERFI ( IKKKK > )* 

3(1.  0+0.  47047*ERFI ( IKKKK ) ) ) )#EP 

514  IF  (IAE.EO.  1)  ERFI  (IKKKK)— ERF  I  (IKKKK) 

OX XU-  ( OMtOAR#  ( X03S+XLS )  +  ( XOBS+  XLS  >  *UR  >  /  ( 2.  O+EX I F ) 

IF  (OXXU.  OT.  86.  0.  OR.  OXXU.  LT. -86.  0)  OXXU-O.  0 
IF  (OXXU.  OT.  86  0.  OR.  OXXU.  LT. -86.  0)  00  TO  919 
OXXU-EXP (OXXU) 

919  CONCEN-OX X U* ( ERF I ( 1 ) -ERFI ( 2 ) )  +  ( EXP ( ( -OMEGAB* ( XOBS+  XLS ) 

1 ♦ ( X03S+  XLS ) +UR ) / ( 2.  0*£XIF) ) )*(ERFI (3) -ERFI (4) ) 

C0NCEN-C0NCEN+8UMAT 

C0NCEN-C0NCEN*(MASS/(2.  0«UC*DC«UR*( ( 1.  0+4.  0*EXIF*KIF/(UR*UR) >**0.  5 
1))) 

00  TO  590 

. CALCULATE  THF  CONCENTRATION  USING  THE  CFF3  MODEL  FOR  A  STEADY. 

. FLOW  RIVfcR  AFTER  THE  CONTINUOUS  SPILL  HAS  STOPPED . 

980  TYPE  +,  'FF' 

0MtGB-(UR*UK+4.  0*KFF+EXFF>+«0.  5 

ERFF(  1  >-(0M»-G9*STM+(  X03S+XFF) )/(  (4.  0*EXFF+STM>**0.  9) 

ERFF ( 2 ) * ( 0Mt03* ( STM-SP TIME )  +  ( XOBS+XFF ) )/( (4.  0*EXFF*(STM- 
1SPTIKE) )**0.  5) 

ERFF(  3  >-(OM»-GS*STM-(  XOBS+XFF)  )/((4.  0*EXFF*STM>**0.  9) 

ERFF (4 ) -(CMPG3*(STM-SPTIME>-( XOBS+XFF >  > / ( ( 4. 0*EXFF*(STM- 
1SPTIMP  )  )*  *0.  5) 

DO  519  ILL-1.4 

IF  (ERFFdU.  >.  OT.  8.  0.  OR.  ERFF(ILL).  LT.  -8.  0)  EP-O.  0 
IF  (ERFF  (ILL).  OT.  8.  0.  OR.  ERFF  (ILL).  LT.  -8.  0)  GO  TO  592 
EP-EXP ( - ( ERFF ( ILL ) *ERFF ( ILL) ) ) 

992  IF  (ERFFdU  >.  LT.  0.  0)  IAE-1 
IF  (ERFKILL).  OE.  0.  0)  IAE-0 

IF  (ERFKILL).  LT.  0.  0)  ERFFdU  >—  ERFF  (ILL) 

ERFF( ILL)-1.  0-(0.  34802/( l.  0+0.  47047+ERFF( ILL) )-0.  09587/( (1  0+0.  470 
147*ERFF (ILL) )*(1.  0+0.  47047*ERFF( ILL) ) )+0.  74785/ 

2<  ( 1.  0+0.  470/17*ERFF  ( ILL) )  +  ( 1.  0+0.  47047+ERFF ( ILL)  )* 

3d.  0+0.  470'17*ERFF(  ILL) ) )  >*EP 

515  IF  (IAE.EO.  1)  ERFF  (ILL)— ERFF  (ILL) 

XUPOB X- ( ( X088+XFF > *OMEOB+  <  XOBS+XFF > *UR ) / ( 2.  O+EXFF ) 

IF  (XUPOBX.  OT.  86.  0.  OR.  XUPOBX.  LT.  -86.  0)  XUPOBX-O.  0 
IF  (XUPOBX.  OT.  86.  0.  OR.  XUPOBX.  LT. -86.  0)  00  TO  518 
rUPOBX-EXP ( XUPOBX ) 

918  CCNCEN-MACS / ( 2.  0*WC*DC*UR*<  d .  0+4.  0*EXPF*KFF/ (UR*UR ) >**0.  5) )* 

1 <  XUPOB  X* ( ERFF  < l ) -ERFF ( 2 )>♦<  EXP (( - ( XOBS+XFF ) +QMEOB+ 

2(X08S+XFF >  «UR)/(2.  C»EXFF) ) >*(ERFF(3)-ERFF(4) >  > 

00  TO  950 

. CHEMICAL  MASS  IS  NO  LONOER  BEING  ADDED  TO  THE  PLUME  AT  THE.  .  .  . 

. SPILL  LOCATION . 

800  WRITEOi  740) 


XCLLSS- XCLLS-XPS 
XXIFF-XXIF-XLS 
XFF-XFS-XXIF+XLS 
IF  (XCONV.  GE.  XENO)  XCCNV-O.  0 
IF  (XCONV.  EQ.  0.  0)  XCLLSS-O.  0 
IF  (XCLLSS  OE.  XENO)  XCLLSS-O. 0 
IF  (XCLLSS.  EG.  0.  0)  XXIFF-O.  0 
IF  ( XX IFF. GE.  XENO)  XXIFF-O.  0 
CO  TO  951 

998  WRITE 0,732) 

TYKE  *,  '  ' 

TYPE  *»  'TURBULENCE  FACTOR  MULTIPLIED  BY  Al.  FA  3  IS  ZERO.  ' 

TYKE  *,  'RUN  TERMINATED.  ' 

TYKE  *,  '  ' 

999  CONTINUE 
C 

C#***  FORMATS  FOR  INPUT  STATEMENTS********************* a**********-***** 
99  FORMAT (6X,  13) 

600  FORMAT (2X,  F9.  3,  4X,  F9.  3.  8X,  F9.  3,  9X,  F9.  3) 

601  FORMAT (4X,  F9.  3,  7X,  F9.  3.  4X.  F5.  1,  5X,  F8.  3) 

602  FORMAT ( 7 X, A8) 

603  FORMAT (4A8) 

604  FORMAT (7X, F7.  1, 8X, Ell.  4,  9X,  F10.  1) 

605  F0RMAT(7X,  F10.  1.9X,  F10.  1) 

606  FORMATOX.  F9.  3,  5X,  F9.  3.  7X,  F9.  3.  7X,  F9.  3) 

607  FORMAT (4X,  F10.  5.  6X.  F10.  5,  6X,  F10.  5) 

608  FORMAT ( 7X»  F10.  5.  9X,  F10.  5,  9X,  F6.  3,  9X,  F7.  3) 

609  FORMATOX,  12,  5X.  12,  5X,  12) 

C 

C##**  FORMATS  FOR  OUTPUT  STATEMENTS*********************************** 

702  F0RMAT(//4X. 18HINITIAL  CONDITIONS/) 

703  FORMAT (//4X« 16HFINAL  CONDITIONS/) 

704  FORMAT (6X. SOHO  INITIAL  DOWNSTREAM  DISTANCE  TO  FIRST  PRINT 
10UI  -  ,  F12.  4,  2H  M/6X.  54H0  INCREMENTAL  DOWNSTREAM  DISTANCE 

2  BETWEEN  PRINTOUTS  -  , F12.  4, 2H  M> 

705  FORMAT ( 6X,  27H0  INITIAL  PLUME  FLOWRATE  -  , E11.4, 7H  M**3/S 
1/6X. 17H0  TIDAL  PERIOD  «  , F10. 1,8H  SECONDS 

2/6X.24HQ  TOTAL  TIME  OF  SPILL  -  ,F10.  1.8H  SECONDS 

3/6X.  SOHO  TIME  INCREMENT  FOR  CONCENTRATION  CALCULATIONS  -  , F10.  1, 

48H  SECONDS 

S/6X.38H0  MAXIMUM  TIME  FOR  SPILL  EVALUATION  -  , F10.  1,8H  SECONDS 
6/6X,  21H0  WIDTH  OF  CHANNEL  -  ,  F9.  3,  2H  M 
7/6X.21H0  DEPTH  OF  CHANNEL  -  , F9.  3,  2H  M) 

706  FORMAT ( 6X,  S8H0  DISTANCE  FROM  THE  CHANNEL  CENTERLINE  TO  THE  SPILL 
1  0RIGIN/8X,  21HIN  THE  Y  DIRECTION  »  ,  F10.  3,  2H  M 

2/6X,  5SH0  DISTANCE  FROM  THE  CHANNEL  SURFACE  TO  THE  SPILL  ORIGIN 
3/8X, 21HTN  THE  Z  DIRECTION  -  ,  F10.  3,  2H  M 

4/6X,  44H0  NEAR  FIELD  MODEL  DECAY  RATE  COEFFICIENT  -  , F10. 5 
5/6X, 52H0  INTERMEDIATE  FIELD  MODEL  DECAY  RATE  COEFFICIENT  -  , F10.  5 
6/6X.43H0  FAR  FIELD  MODEL  DECAY  RATE  COEFFICIENT  -  . F10.  5 
7/6X,  53H0  LAMBDA  COEFFICIENT  FOR  THE  VERY  NEAR  FIELD  MODEL  *  , F10.  5 
8) 

707  FORMAT ( 6X, 69H0  RATIO  OF  CIRCUMFERENTIAL  TO  CENTERLINE  CONCENTRATIO 
IN  FOR  CONVfcRSION/SX,  26HI0  THE  NEAR  FIELD  MODEL  -  ,F10.  5 
2/6X.6RH0  ERROR  BETWEEN  THE  NEAR  FIE> D  AND  INTERMEDIATE  FIELD 

3  C0NCENTRATI0NS/8X,  29HAT  THE  POINT  OF  CONVERSION  -  , F10.  5 
4/6X.62H0  DISTANCE  INCREMENT* FOR  THE  INTERMEDIATE  FIELD  MODEL 
S  MATCHING/8X,  10HR0UTINE  -  ,F10.  5.  2H  M> 

70S  FORMAT (2X,  10HTEST  NO.  :  ,A8> 

709  FORMAT ( /2X,  24HFL0W  FIELD  DESCRIPTION:  ,4A8/> 

710  FORMAT <6X,  31 HO  CHANNEL  REFERENCE  VELOCITY  -  ,  F6.  3, 4H  M/S 
1/6X, 18H0  PLUME  DENSITY  -  , 

2F10.  3,  8H  K0/M**3/6X,  32H0  PLUME  CHARACTERISTIC  RADIUS  -  , F12.  5, 2H 


3  M/6X. 44H0  PLUME  VELOCITY  (STREAM  SPEED  COMPONENT)  *  , F12. 5, 4H  M/S 
4/6X<  49HO  PLUME  ANCLE  (WITH  RESPECT  TO  HORIZONTAL)  =  ,  F 12.  5. 8H  RADI 
3ANS/6X,  43HO  INITIAL  X  (HORIZONTAL  DISTANCE  FROM  VENT)  *  , F12.  5, 2H 
6M/6X,  44H0  INITIAL  Z  (VERTICAL  DEPTH  FROM  SURFACE)  =  ,  F12.  5,  2H  M//) 

711  FORMAT! //3X- 38HVERY  NEAR  FIELD  PLUME  CENTERLINE  PATH: 

1//7X,  1HX.  14X.  1HZ>  10X,  17HC0NCENTRAT ION(CL ) /4X>  8H( METERS) . 7X. 
28H(MEVERS>.  10X,  9H(K0/M**3 )  / ) 

712  FORMAT (6X, 31 HO  MEAN  VELOCITY  OF  THE  RIVER  -  ,  FIO.  3,  4H  M/S/ 

1  6X.31H0  ORIENTATION  OF  THE  SPILL  JET:  ) 

713  FORMAT ( 8 X.  32HPLUME  RADIUS  FROM  OOMS  '  MODEL  -  , F12.  4, 7H  METERS 
1//9X.  1HY,  8X< 13HCCNCENTRATI0N/3X.  8H(METERS>,  7X, 9H(KG/M**3> / ) 

714  FORMAT ( 30H  NUMERICAL  INTEGRATION  DATA//7X, 19H0  STARTING  POINT 
1-, FIO.  4/7X, 22H0  INITIAL  STEP  SI ZE-,  FIO.  6/7X.  20H0  FINAL 

2  STEP  SIZE-. FIO. 6// > 

713  FORMAT ( /2X . 21H JET  DIRECTION  CHANGED/) 

716  FORMAT (/2X.F9.  3,  3X,  Ell.  4) 

717  FORMAT! 1H1, /2X. 12HSTEA0Y  RIVER/) 

718  FORMAT (  //9X.  1HY.  8X.  13HC0NCENTRATI0N/3X.  8H(  METERS ) .  7X.  9H (KG/M**3 )  /  ) 

719  FORMAT (28H  ENTRAINMENT  COEPFIC IENTS//7X, 1 1HO  ALFA  1-, F8. 4/7X, 
111HO  ALFA  2-. F8.  4/7X. 11HO  ALFA  3*. F8.  4// > 

723  FORMAT ( X.  27HALFA3  *  TURBULENCE  LEVEL  -  .FIO.  5) 

726  FORMAT ( 1H1 ) 

727  FORMAT ( 2X. 33H1UR8ULENT  DIFFUSION  COEFFICIENTS: //7X. 

17HEXNF  >  .  Ell.  4/7X,  7HEYNF  -  .Ell.  4/7X.  7HEZNF  -  ,  EU.4//7X, 

27HEXIF  -  . Ell.  4/7X.  7HEYIF  »  , El  1 .  4//7X. 7HEXFF  -  .Ell. 4//) 

728  FORMAT! 1H1, //2X.  22HMQDEL  CONVERSION  DATA:// 

12X.  46HTHE  CONVERSION  FROM  THE  VERY  NEAR  FIELD  TO  THE/2X,  27HNEAR 

2  FIELD  SEC I NS  AT  XCL  -  . FIO.  2.  2H  M/2X.69HTHE  ADJUSTMENT  IN  THE  X 

3  DIRECTION  AT  THE  POINT  OF  CONVERSION  FROM  THE/2X. 42HVERY  NEAR 

4  FIE LO  TO  THE  NEAR  FIELD  MODEL  -  . F12.  4, 2H  M/2X, 60HTHE  CENTERLINE 
3  CONCEN 1  RAT I ON  AT  THE  POINT  OF  CONVERSION  FR0M/2X,  40HTHE  VERY  NEAR 
6  FIELD  TO  THE  NEAR  FIELD  -  ,E12.  4, 8H  KC/M**3> 

729  FORMAT ( 1H1,  //2X,  22KM0DEL  CONVERSION  DATA:// 

12X.  36HTHE  CONVERSION  FROM  THE  CVNF3  BUOYANT  PLUME  MODEL  TO  THE/ 
22X. 31HCVNF3  GRAVITY  SPREADING  PLUME  MODEL  OCCUURS  AT  XCL*, FIO.  2, 
22H  M/, 

32X. 33HTHP  DEPTH  OF  THE  PLUME  CEN1ER  LINE  BELOW  THE  SURFACE  *  , 

3  F7.2.2H  .1/. 

42X. 38HTH*  CENTtRLINE  CONCENTRATION  AT  THE  CONVERSION  POINT  IS  *  . 

4  E12.  4,  SH  KQ/M**3) 

730  FORMAT ( /2X.  60H1  HE  CONVERSION  FROM  THE  CVN»-]  GRAVITY  SPREADING  MODE 
1L  TO  THE/ 

22X, 46HC IF]  INTERMEDIATE  FIELD  MODEL  OCCURS  AT  XCL  -  .  FIO.  2,  2H  M/, 
32X. 46HTHP  CIF3  VERTICAL  LINE  SOURCE  CONCENTRATION  -  ,E11.4, 

3  8H  KG/M-**3/ 

42X, SSHTHfc  LOCATION  OF  THE  VIRTUAL  ORIGIN  FOR  THE  CIF3  MODEL 

4  FIO.  2,  2H  M/ 

42X, 32HUPSTREAM  OF  THE  CONVERSION  POINT/ 

32X.  36HTHP  RATIO  OF  THE  INTERMEDIATE  FIELD  CONCENTRATION  TO  THE/ 
32X, 49HCVNF3  CONCENTRATION  FOR  THIS  ORIGIN  DISTANCE  IS  *, FIO. 5/) 

731  F0RMAT(6X,  31H0  CHANNEL  REFERENCE  VELOCITY  -  , F6.  3, 4H  M/S 
1/6X.33H0  PLUME  CENTERLINE  CONCENTRATION  -  , FIO.  3, 8H  KG/M**3 
2/6X.39H0  PLUME  CONSTANT  CONCENTRATION  WIDTH  -  , FIO.  3. 2H  M 
3/6X.26H0  PLUME  EFFECTIVE  WIDTH  -  , FIO.  3, 2H  M 

4/6X.40H0  PLUME  CROSS  STREAM  DISPERSION  LENGTH  *, FIO. 3, 2H  M 
3/6X, 37H0  PLUME  VERTIAL  DISPERSION  LENGTH  -  , FIO.  3, 2H  M 
6/6X. 47H0  FINAL  X  (HORIZONTAL  DISTANCE  FOR  DISCHARGE)-  .  FIO  3.  2H  M 
7/6X.41H0  FINAL  Z  (VERTICAL  DEPTH  FROM  SURFACE)-  , FIO. 3, 2H  M) 

732  FORMAT! /2X, 63H1 UR3ULENCE  FACTOR  MULTIPLIED  BY  ALFA  3  IS  ZERO.  RUN 
1 TERMINATED.  > 

733  FORMAT ( /2X.  41H1HE  CONVERSION  FROM  THE  NEAR  FIELD  TO  THE/2X. 35H 
1  INTERMEDIATE  FIELD  BEGINS  AT  XCL  -  , F12.  4, 2H  M 

2/2X, 39HI HE  INJERMEDIATE  FIELD  CONCENTRATION  -  ,  E11.4, 


E-58 


ouuuu 


38H  K0/M**3> 

734  FORMAT (2X,  F12.  4,  3X,  F12.  4,  7X,  Ell.  4) 

739  FORMAT <//4X»  47HTURBULENCE  FACTORS  FOR  THE  NEAR  FIELD  EQUATION:/ 
1/7X.21H0  EY  COEFFICIENT  -  . F10.  S/7X, 21H0  EZ  COEFFICIENT  =  , FIO 
2.  9//) 

736  FORMAT (6X,  26H0  AMBIENT  FLUID  DENSITY  «  ,  F9.  3,  8H  KG/M**3/6X,  33H0  DI 
1SPERSION  JET  FLUID  DENSITY  ■  , F9.  3, SH  KG/M**3/6X,  24H0  AMBIENT  TEMP 
2ERATUHE  -  ,  F9.  1.  12H  DEO  RANKINE/ 

36X.  27H0  INITIAL  PLUME  DIAMETER  «  ,  F9.  4.  OH  CM/6X. 

429H0  CHANNEL  TURBULENCE  LEVEL  -  . F9.  3) 

737  FORMAT (2X,  60H THE  ADJUSTMENT  IN  THE  X  DIRECTION  AT  THE  POINT  OF 

1  C0NVERSI0N/2X.  94HFROM  THE  NEAR  FI  El.  D  TO  THE  INI  ERMEDIATE  FIELD 

2  MODEL  -  i  F12.  4<  2H  M/2X,  67HTHE  RATIO  OF  THE  IN] ERMEDIATE  FIELD 

3  CONCENTRATION  TO  THE  NEAR  FIELD/2X,  39HC0NCENTRATI0N  FOR  THE  X 

4  OFFSET  VAI  UE  ■  .FIO.  9/> 

738  FORMAT < 1H1. 6X<  38HC0NCENTRATI0N  AT  THE  OBSERVATION  POINT// 

18X.  47HD0WNSTREAM  DISTANCE  TO  THE  OBSERVATION  POINT  «  ,  F12.  3.  2H  M 
2/8X. 61HDISTANCE  FROM  THh  CHANNEL  SURFACE  TO  THE  OBSERVATION 
3  L0CATI0N/8X, 21HIN  THE  Z  DIRECTION  -  . FIO.  3. 2H  M/8X. 

491H  (TH*  Z  VALUE  IS  THE  SPILL  CENTERLINE  LOCATION > 

9/8X.  19H03SERVATI0N  TIME  -  , FIO.  1.8H  SECONDS 

6/8X. 34HTRAN3VERSE  INCREMENTAL  DISTANCE  -  . F12.  3.  7H  METERS) 

739  FORMAT ( 1H1.  6X<  38HC0NCEN I  RATION  AT  THE  OBSERVATION  POINT// 

18X,  47HD0WNSTREAM  DISTANCE  TO  THE  OBSERVATION  POINT  »  ,  F12.  3. 2H  M 
2/8X.  61HUISTANCE  FROM  THE  CHANNEL  SURFACE  TO  THE  OBSERVATION 
3  L0CATICN/8X, 21HIN  THE  Z  DIRECTION  -  , FIO.  3.  2H  M 
4/8X.  19H08SERVATI0N  TIME  -  , FIO.  1.8H  SECONDS 
9/8X.  34HTRAN3VERSE  INCREMENTAL  DISTANCE  -  ,  F12.  3.  7H  METERS) 

740  FORMAT (/6X.29H THE  SPILL  HAS  TERMINATED.//) 

744  FORMAT ( 4X.  FIO.  3>  9X.  El 1 .  4/ > 

746  FORMAT ( /2X.  7HTIME  -  . FIO.  1, 9X.  90HTHE  ENTIRE  PLUME  HAS  PASSED 
1  THE  OBSERVATION  POINT./) 

747  FORMAT ( 2X.  49H THE  CONVERSION  FROM  THE  INTERMEDIATE  FIELD  TO  THE 
1/2X.26HFAR  FIELD  BEGINS  AT  XCL  -  . F12.  4,  2H  M 

2/2X.  60HTHE  ADJUSTMENT  IN  THE  X  DIRECTION  AT  THE  POINT  OF 

3  CONVERS 1 0N/2X .  93HFR0M  THE  INTERMEDIATE  FIELD  TO  THE  FAR  FIELD 

4  MODEL  -  , F12.  4. 2H  M) 

791  FORMAT (6X«  26H  HORIZONTAL  DOWNSTREAM) 

792  FORMAT (6X.  24H  HORIZONTAL  UPSTREAM) 

793  FORMAT ( 6X<  20H  VERTICAL  UPWARD) 

794  FORMAT <6X.22H  VERTICAL  DOWNWARD) 

799  FORMAT ( 6X »  39H  HORIZONTAL  TRANSVERSE  TO  THE  RIGHT) 

796  FORMAT ( 6X<  3SH  HORIZONTAL  TRANSVERSE  TO  THE  LEFT) 

780  FORMAT! /3X. SOHSWITCH  TO  VERY  NEAR  FIELD  GRAVITY  SPREADING  MODEL  ) 

781  FORMAT </99H  X  CA  SY  SZ  B  BEFF 

1./98H  (METERS)  (K0/M**3)  (METERS)  (METENS)  (METERS)  (METERS)  > 

787  FORMAT ( 1H1 ) 

788  FORMAT (F8.  2.  E12.  4,  F8.  3.  F9.  3,  F9.  3.  F9.  3) 

END 

C 

C *•*••***«*-*«  X **»•*«*#«****** *J»*«*'X***-»'****#****'*****'*-*********'***'»*4-* 

C 

SUBROUTINE  RHS2(Y.  RS> 

DIMENSION  Y(3).RS(3) 

COMMON/PHYS/DCOR.  EPS.  UPRI,  ROA,  DENS,  0,  UR,  UA 
C0MM0N/HCS1/C1.  C2,  C3, C4,  C9,  C6- DPLU 
C0MM0N/H0S2/AFM1. AFM12, DELRO, CA, ZO, B2M1,  CAI 
LIST  OF  VARIABLES 
Y(l)  •  (SZ/ZO)**AFl 
Y(2)  -  BEFF 
Y(3>  ■  SY* *2 

SZ  -  ZO*(Y(l)**AFMl) 


E-59 


o  o  o 


c*** 


c 

c*** 

c 

c 

c*** 


c 

c 


ROCA  -  ROA  +  DELRO*CA 
DIFFEREN1IA1  EQUATION  FOR  BEFF 

IF  (DENS.  OT.  ROA)  RS(2)-C5*SQRT< 1.  -ROA/ROCA>*< (SZ/Z0)**AFM12> 
IF  (DENS.  LT.  ROA)  RS(2)«C5*SQRT( 1. -ROCA/ROA>*< <SZ/Z0>**0.  5) 

DIFFEREN1IAI  EQUATION  FOR  SY**2 

RS<3>  -  C6*(Y<2)»*32M1 > 

DIFFEHEN1IAL  EQUATION  FOR  <SZ/ZO)**AFl 

COMPUIE  RICHARDSON  NUMBER 

HFFF  ■  C2+SZ 
RICH  -  C3*H*-FF 

APHI  «  0.  62  +  1.  3911*<RICH**0.  7) 

RS( 1 )  «  Cl /APHI  -  Y< 1 ) *RS<2) /Y(2) 

RETURN 


oo  or»o  on  nooonnooooonnnooonoooononoonoo  nnnnnnnnnnnn 


«  »***PROGRAM  OOMS***** 

PROJECT  NO.  :  02-9864-003 
PROJECT  SPONSOR:  COAST  GUARD 
DATE:  3-27-81 

THIS  PROGRAM  PREDICTS  PLUME  TRAJECTORY  ANO  PLUME  CONCENTRATION 
OF  A  SUOYANl  PLUME  USING  OOMS '  METHOD. 

INPUT  DATA  FILES:  SPILLIN.  OAT 
OUTPUI  DATA  FILES:  SPILLOUT.  DAT 

INIEOER  FUNCTION  NAMING!  N.  Y.  F.  X,  H,  TE) 

FUNCTION  HAHINO  IS  TAKEN  FROM  'APPLIED  NUMERICAL  METHODS'  BY 
B.  CARNAHAN.  H.  A.  LUTHER.  AND  J.  0.  WILKES.  PUBLISHED  BY  J.  WILEY 
ANO  SONS.  INC.  1969.  PACES  401  TO  402. 

HAMINO  INPLEHENTS  HAMHINQ'S  PREDICTOR-CORRECTOR  ALGORITHM  TO 
SOLVE  N  SIMULTANEOUS  FIRST-ORDER  ORDINARY  DIFFERENTIAL 
EQUATIONS.  X  18  THE  INDEPENDENT  VARIABLE  AND  H  IS  THE 
INTEGRATION  8TEPSIZE.  THE  ROUTINE  MUST  BE  CALLED  TWICE  FOR 
INIEGRATION  ACROSS  EACH  STEP.  ON  THE  FIRST  CALL.  IT  IS  ASSUMED 
THAT  THE  SOLUTION  VALUES  AND  DERIVATIVE  VALUES  FOR  THE  N 
EQUATIONS  ARE  8T0RED  IN  THE  FIRST  N  COLUMNS  OF  THE  FIRST 
FOUR  ROWS  OF  THE  Y  MATRIX  AND  THE  FIRST  THREE  ROWS  OF  THE  F 
MATRIX.  RESPECTIVELY.  THE  ROUTINE.  COMPUTES  THE  N  PREDICTED 
SOLUTIONS  YPRED(J),  INCREMENTS  X  BY  H  AND  PUSHES  ALL 
VAIUES  IN  THE  Y  AND  F  MATRICES  DOWN  ONE  ROW.  THE  PREDICTED 
SOLUTIONS  YPRED(J)  ARE  MODIFIED,  USING  THE  TRUNCATION  ERROR 
ESTIMATES  TE(J)  FROM  THE  PREVIOUS  STEP,  AND  SAVED  IN  THE  FIRST 
ROW  OF  THE  Y  MATRIX.  HAMINO  RETURNS  TO  THE  CALLING  PROGRAM  WITH 
THE  VALUE  1  TO  INDICATE  THAT  ALL  DERIVATIVES  SHOULD  BE  COMPUTED 
ANO  STORED  IN  THE  FIRST  ROW  OF  THE  F  ARRAY  BEFORE  THE  SECOND 
CAI  L  IS  MADE  ON  HAMINO.  ON  THE  SECOND  ENTRY  TO  THE  FUNCTION 
(DETERMINED  BY  THE  LOGICAL  VARIABLE  PRED > »  HAMINO  USES  THE 
HAMMING  CORRECTOR  TO  COMPUTE  NEW  SOLUTION  ESTIMATES,  ESTIMATES 
THF  TRUNCATION  ERRORS  TE(J)  FOR  THE  CURRENT  STEP,  IMPROVES 
THP  CORRECTED  SOLUTIONS  USING  THE  NEW  TRUNCATION  ERROR 
ESTIMATES.  SAVES  THE  IMPROVED  SOLUTIONS  IN  THE  FIRST  ROW  OF  THE 
Y  MATRIX.  ANO  RETURNS  TO  THE  CALLING  PROGRAM  WITH  A  VALUE  2  TO 
INDICATE  COMPLETION  OF  ONE  FULL  INTEGRATION  STEP. 

LOGICAL  PRED 

DIMENSION  YPRED(20),  TE<N>.  YC4.N),  F<3,  M) 

DATA  PRED  /  .  TRUE.  / 

.  IS  CALL  FOR  PREDICTOR  OR  CORRECTOR  SECTION  . 

IF  (.NOT.  PRED)  GO  TO  4 

.  PREDICTOR  SECTION  OF  HAMINO  . 

.  COMPUIE  PREDICTED  Y<J>  VALUES  AT  NEXT  POINT  . 

DO  1  J-l.N 

1  YPRED(J)  -  Y(4,  J)  4.  #H*(2.  *F(l,  J)  -  F(2,  J)  +  2.  *F(3,  J)  > /3. 

.  UPDATE  THE  Y  AND  F  TABLES  . 

DO  2  J-l.N 
DO  2  K9-1.3 
K  -  9  -  K3 
Y(K, J)  -  Y(K-l.J) 

2  IF  (K.  LT.  4)  F(K,  J)  -  F(K-l.J) 

C 
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.  MODIFY  PREDICTED  Y(J)  VALUES  USING  THE  TRUNCATION  ERROR 

.  ESTIMATES  FROM  THE  PREVIOUS  STEP.  INCREMENT  X  VALUE 

DO  3  J-l.N 

3  Y(l« •  J )  -  YPRED(U)  +  112.  *TE(J>/9. 

X  ■  X  ♦  H 

.  SE I  PRED  ANO  REQUtST  UPDATED  DERIVATIVE  VALUES  . 

PRED  ■  .FALSE. 

HAM I NO  •  1 
RETURN 

.  CORRECTOR  SECTION  OF  HAM I NO 

.  COMPUlE  CORRECTED  ANO  IMPROVED  VALUES  OF  THE  Y(J>  AND  SAVE 

.  TRUNCATION  ERROR  ESTIMATES  FOR  THE  CURRENT  STEP  . 

4  DO  9  J-l.N 

Y(l,  J )  ■  (9.  *Y(2,  J)-Y(4,  J)  ♦  3.  *H*(F(  1,  J>+2.  *F<2,  J)-F(3.  J)  >  >/8. 
TE(J)  ■  9.  -*(Y(1,  J)  -  YPRED<  J)  )/121. 

5  Y(l.J)  -  Y(l» -J )  -  TE(  J) 

....  SET  PRED  ANO  RETURN  WITH  SOLUTIONS  FOR  CURRENT  STEP  . 

PKED  -  . TRUt. 

HAM I NO  -  2 

RETURN 

ENO 

IN  I  EGER  FUNCTION  RUNGE(N, Y, F.  X,  H) 

FUNCTION  RUNOE  IS  TAKEN  FROM  'APPLIED  NUMERICAL  METHODS'  BY 
B.  CARNAHAN,  H.  A.  LUTHER,  AND  J. O.  WILKES,  PUBLISHED  BY  J.  WILEY 
ANO  SONS,  INC.  1969  PAOES  374  TO  375. 

THF  FUNCTION  RUNOE  EMPLOYS  THE  FOURTH-ORDER  RUNCE-KUTTA  METHOD 
WITH  KUTTA'S  COEFFICIENTS  TO  INTEGRATE  A  SYSTEM  OF  N  SIMULTAN¬ 
EOUS  FIRST  ORDER  ORDINARY  DIFFERENTIAL  EQUATIONS  F< J)-DY(J)/DX, 
(J-l. 2,  .  .  .  , N>,  ACROSS  ONE  STEP  OF  LENOTH  H  IN  THE  INDEPENDENT 
VARIABLE  X,  SU8JECT  TO  INITIAL  CONDITIONS  Y(J>,  ( J-l,  2,  .  .  .  ,  N> . 

EACH  F< J) »  THE  DERIVATIVE  OF  Y(J),  MUST  BE  COMPUTED  FOUR  TIMES 
PER  INTEGRATION  STEP  BY  THE  CALLING  PROGRAM  THE  FUNCTION  MUST 
BE  CALLED  FIVE  TIMES  PER  STEP  (PASSU  >.  .  .  PASS<5>  )  SO  THAT  THE 
INDEPENDENT  VARIABLE  VALUE  (X)  AND  THE  SOLUTION  VALUES 
(Y<1). . . Y(N> >  CAN  BE  UPDATED  USING  THE  RUNCE-KUTTA  ALGORITHM. 

M  IS  THE  PASS  COUNTER.  RUNOE  RETURNS  AS  ITS  VALUE  1  TO 
SIONAL  THAT  ALL  DERIVATIVES  (THE  F(J>)  BE  EVALUATED  OR  0  TO 
SIONAf  THAT  THE  INTEGRATION  PROCESS  FOR  THE  CURRENT  STEP  IS 
FINISHED.  SAVEY(J)  IS  USED  TO  SAVE  THE  INITIAL  VALUE  OF  Y(J) 

ANO  PHI ( J)  IS  THE  INCREMENT  FUNCTION  FOR  THE  J(TH>  EQUATION. 

AS  WRITTEN,  N  MAY  BE  NO  LARGER  THAN  50. 

DIMENSION  PHI (90),  SAVEY(50>,  Y ( N ) »  F(N) 

DATA  M/0/ 

M  ■  II  ♦  1 

00  TO  (1,2,  3,  4,  5),  M 

.  PASS  1  . 

1  RUNOE  -  1 
RETURN 


.  PASS  2  . 

2  DO  22  J-l.N 

SAVEY(J)  -  Y(J> 

PHI ( J)  -  F( J) 

22  Y(J>  -  SAVEY ( J)  ♦  0.  5*H-*F(J> 
X  ■  X  «•  0.  5-*H 


RUNGE  ■  1 
RETURN 

.  FA3S  3  . 

00  33  J*  l.N 

PHI ( J)  ■  PHI ( J)  +  2.  0*F(J> 
Y(J)  ■  SAVfcY(J)  +  0.  5«H*F(J> 
RUNGE  -  1 
RETURN 


.  PASS  4  . 

DO  44  J*-  l.N 

PHI ( J)  ■  PHI ( J>  +  2.  0#F(J> 

Y(J)  -  SAVfcY(J)  +  H*F < J ) 

X  «  X  ♦  O.  3*H 
RUNGE  -  1 
RETURN 

.  PASS  3  . 

DO  S3  J  >  l.N 

Y(J>  -  SAVfcY(J)  +  (PHI (  J)  ♦  F(J>>*H/6. 0 

M  -  0 

RUNGE  »  O 

RETURN 

ENO 

REAL  FUNCTION  SIMUL (N,  A. X,  EPS.  INOIC, NRC  > 

FUNCTION  SIMUL  IS  TAKFN  FROM  'APPLIED  NUMERICAL  METHODS'  BY 
B.  CARNAHAN,  H.  A.  LUTHER,  AND  J.  0.  WILKES.  PUBLISHED  BY  J.  WILEY 
ANU  SONS.  INC.  1969.  PAGES  290  TO  291. 

WH»-N  INOIC  IS  NEGATIVE,  SIMUL  COMPUTES  THE  INVERSE  OF  THE  N  BY 
N  MATRIX  A  IN  PLACE.  WHEN  INOIC  IS  ZERO,  SIMUL  COMPUTES  THE 
N  SOLUTIONS  X(l>.  .  .  X(N)  CORRESPONDING  TO  THE  SET  OF  LINEAR 
EQUATIONS  WITH  AUGMENTED  MATRIX  OF  COEFFICIENTS  IN  THE  N  BY 
N+l  ARRAY  A  AND  IN  ADDITION  COMPUTES  THE  INVERSE  OF  THE 
COEFFICIENT  MATRIX  IN  PLACE  AS  ABOVE.  IF  INOIC  IS  POSITIVE, 

THE  SET  OF  LINEAR  EQUATIONS  IS  SOLVED  BUT  THE  INVERSE  IS  NOT 
COMPUTED  IN  PLACE.  THE  G*J3S- JORDAN  COMPLETE  ELIMINATION  METHOD 
IS  EMPLOYED  WITH  THE  MAXIMUM  PIVOT  STRATEGY.  ROW  AND  COLUMN 
SUBSCRIPTS  OF  SUCCESSIVE  PIVOT  ELEMENTS  ARE  SAVED  IN  ORDER  IN 
THF  I ROW  AND  JCOL  ARRAYS  RESPECTIVELY.  K  IS  THE  PIVOT  COUNTER, 
PIVOT  THF  ALGEBRAIC  VALUE  OF  THE  PIVOT  ELEMENT,  MAX 
THE  NUMBER  OF  COLUMNS  IN  A  ANO  DETER  THE  DETERMINANT  OF  THE 
COEFFICIENT  MATRIX.  THE  SOLUTIONS  ARE  COMPUTED  IN  THE  (N+l)  TH 
COLUMN  OF  A  ANO  THEN  UNSCRAMBLED  AND  PUT  IN  PROPER  ORDER  IN 
X(l>. . . X(N)  USINO  THE  PIVOT  SUBSCRIPT  INFORMATION  AVAILABLE 
IN  THE  IROW  AND  JCOL  ARRAYS.  THE  SION  OF  THE  DETERMINANT  IS 
ADJUSTED,  IF  NECESSARY.  BY  DETERMINING  IF  AN  ODD  OR  EVEN  NUMBER 
OF  PAIRWISE  INTERCHANGES  IS  REQUIRED  TO  PUT  THE  ELEMENTS  OF  THE 
JORD  ARRAY  IN  ASCENDING  SEQUENCE  WHERE  JORD( IROW( I ) )  «  JCCL(I). 
IF  THE  INVERSE  IS  REQUIRED,  IT  IS  UNSCRAMBLED  IN  PLACE  USING 
Y(i>.  .  .  Y(N>  AS  TEMPORARY  STORAGE.  THE  VALUE  OF  THE  DETERMINANT 
IS  RE1URNEP  AS  THE  VALUE  OF  THE  FUNCTION.  SHOULD  THE  POTENTIAL 
PIVOT  OF  LARGEST  MACNI fUDE  BE  SMALLER  IN  MAGNITUDE  THAN  EPS, 

THfc  MATRIX  IS  CONSIDERED  TO  BE  SINGULAR  AND  A  TRUE  ZERO  IS 
RETURNED  AS  THE  VALUE  OF  THE  FUNCTION. 

DIMENSION  IRQW( 13),  JCOL( 19),  JORD( 13),  Y(13).  A(NRC, NRC > . X(N> 

HAX-N 

IF  (INOIC.  0£.0>  MAX-N+l 
.  .  .  BEOIN  ELIMINATION  PROCEDURE.  .  . 
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DETER “1 
DO  18  K*1,N 
KM1-K-1 

. . . SEARCH  FOR  THE  PIVOT  ELEMENT.  .  . 

PIVOT-O. 

DO  11  1-1. N 
DO  11  Jd,  M 

...SCAN  IRON  AND  JCOL  ARRAYS  FOR  INVALID  PIVOT  SUBSCRIPTS 

IF  <K.  EG.  1)  GO  TO  9 

DO  8  I  SC  AN*- 1 1  KM1 

DO  8  JSCAN=1,  KM1 

IF  (I.  EG.  IROW(ISCAN) )  00  TO  11 

IF  <  J.  EG.  JCOL  <  JSC  AN)  )  GO  TO  11 

8  CONTINUE 

9  IF  <  A3S(A( I.  U) ) .  LE.  ABS(PIVOT) >  GO  TO  11 
PIVOT-A< I,  U) 

IRON  00*1 
JCOL <  K  >  ■  J 
11  CONTINUE 

.  .  .  INSURE  THAT  SELECTED  PIVOT  IS  LARGER  THAN  EPS.  .  . 

IF  (  ABS(PIVOT).  GT.  EPS)  GO  TO  13 
URITE(3,  202) 

SIMUL-O. 

RETURN 

.  .  .  UPDATE  THE  DETERMINANT  VALUE.  .  . 

13  IR0WK-IR0W<K> 

JCOLK-JCOL(K) 

D£TER*DETER*P  I VOT 

.  .  .  NORMALIZE  PIVOT  ROW  ELEMENTS.  .  . 

DO  14  J~l,  MAX 

14  AUROWK,  J)-AUROWK,  J)/PIVOT 

...CARRY  0'J1  ELIMINATION  AND  DEVELOP  INVERSE... 

A( IROWK, JCQLK )  - 1 .  /PIVOT 
DO  18  I-l.N 
AIJCK-Ad,  JCOLK ) 

IF  (I.  EG.  IROWA)  GO  TO  18 
Ad,  JCOLK)  -  -AIJCK/PIVOT 
DO  17  J* 1 , MAX 

17  IF  ( J.  NE.  JCOLK)  A( I, J)-A< I,  J)-AI JCK*A( IROWK,  J) 

18  CONTINUE 

...ORDER  SOLUTION  VALUES  < IF  ANY)  AND  CREATE  JORD  ARRAY.. 

DO  20  1*1,  N 

IROWI-IROWU) 

JCOL I* JCOL ( I ) 

JORDdROWD-JCOLI 

20  IF  (INDIC.GE.  0)  X< JCOLI >-A< IROWI, MAX ) 

.  .  .  ADJUST  SION  OF  DETERMINANT.  .  . 

INI  CH’  0 

NH1-N-1 

DO  22  1*1,  NM1 

IP1-I+1 

DO  22  J*IP1,N 

IF  <  JORD ( J ) .  OE.  JORD ( I ) )  GO  TO  22 
JTfeMP* JORD ( J ) 

JORD ( J  > -JORD  < I ) 

JORD( I )*JTEMP 
IN1CH-INTCH+1 
22  CONTINUF 

IP  <INTCH/2-*2.  NE.  INTCH)  DETER— DETER 

...  IF  INOIC  IS  POSITIVE  RETURN  WITH  RESULTS.  .  . 

IF  < INDIC.  LF.  0)  00  TO  26 

8IMUL-DETER 

RETURN 


...  IF  INDIC  IS  NEGATIVE  OR  ZERO,  UNSCRAMBLE  THE  INVERSE 
FIRST  BY  RONS.  .  . 

26  DO  28  J-l,  N 
DO  27  I-l.N 
IROWI-IRQW(I) 

JCOLI-JCOLU) 

27  Y< JCQLI )-A< IROWI, J) 

DO  28  1-1,  N 

28  A< I, J)=Y< I ) 

.  .  . THtN  BY  COLUMNS.  .  . 

DO  30  1-1,  N 
DO  29  J-l.  N 
IROWJ--  IROW(J) 

JCOLJ* JCQL(J) 

29  Y(IRONJ>»A(I,  JCOLJ) 

DO  30  J»t,M 

30  A( I,  J)-Y(J) 

.  .  .  RETURN  FOR  INOIC  NEGATIVE  OR  ZERO.  .  . 

SIMUL-DETER 

RETURN 

202  FORMAT (37H03MAI.L  PIVOT  -  MATRIX  MAY  BE  SINGULAR) 

END 

SUBROUTINE  RHS(Y.  C) 

DIMENSION  Y(6),  A(  3,  3),  8(4,  4),  C  (4) ,  D(3) 

COMMON/PHYS/DCDR.  EPS,  UPRI,  ROA,  DENS,  G,  UR,  UA 
COMMON/CONP/ROT.  ALFA1,  ALFA2,  ALFA3 

VERY  NEAR  FIELD  EQUATIONS  FOR  GAUSSIAN  PROFILES  AND  VARIABLE  DEN¬ 
SITY. 

ST-  SIN(Y(4) ) 

ST2-ST*ST 
CT-  C0S(Y(4) ) 

CT2-CT*CT 
UA2— UA*  UA 
UACT— UA*CT 
UA8T— UA*ST 
Y12— Y( 1 )*Y(2) 

Y33— Y ( 3  >  * V ( 3 ) 

RQC-Y  < 1 ) /DC DR 
ROCA-ROC/ROA 

AC 1-0.  7/2699*UACT+0.  412442*Y<3> 

AC2-d.  043144*UACT  0.  33679*Y<3>  >  /ROA 

AC3— (1.  043144*UACT*UACT  +  1.  1 13393*UACT*Y<3>  +  0.  363346*Y33 ) /ROA 
AMI-2.  *UACT*UACT  +  1.  729329* UACT*Y< 3)  +  0.  490842*Y33 
AM?— Y ( 2 ) * ( 1 .  729329* U AC T+0.  981684*Y(3)+R0CA*d.  U3393*UACT 
1  +0.  726692*Y(3) ) ) 

CONSERVATION  OF  SPECIES 

A(l, 1 )-Y(2)*ACl 
A< 1, 2)-2.  *Y ( 1 )*AC 1 
A<1,  3 > -0.  412442*Y12 
Ad,  4)— 0.  772699* Y 1 2*UAST 
Ad,  3>-0. 

CONSERVATION  OF  MASS 
A<2, 1 )-Y<2)*AC2/DCDR 

A<2, 2)-2.  *<2.  *UACT  +  0.  864663*Y(3>  +  R0C*AC2> 

A(2,  3)-Y(2)*(0.  864665  0.  556796*R0CA) 

A ( 2, 4 ) *Y < 2 ) *UAST * ( -2.  -1.  043144*ROCA) 

A<2. 3>«2  *(ALFA1*  ABS(Y(3>)  +  ALFA2*  UACT*  ABS<ST>  +  ALFA3*  UPtU  > 


J 


c 

C  CONSERVATION  OF  X-MOMENIUM 

C 

AO.  1  )-Y(2)-*AC3*CT/DCDR 
A (3.  2) *2.  <*<Afll  +  AC3*R0C>*CT 
A <3, 3>-CT*AM2 

A <3.  4)-Y(2)*ST*<-6.  *UACT*UACT-3.  458658*UACT*Y<3>-0.  490842*Y33 
1  -ROC A* (3  1 29432*UAC T *UAC T+2 .  2271S6*UACT*YO> +0.  363346*Y33)  > 
AO,  5)-UA*A<2,  5)*0.  3*UA?*  A3S(ST*ST*ST) 

C 

C  CONSERVATION  OF  Y-MQMENTUM 

C 

A(4. 1 >-Y(2)*ST*AC3/DCDR 
A<4.  2>-2  *ST*(AM1  +  AC3*R0C > 

A <4. 3>-ST*AM2 

A <4,  4>»Y<2>*<2.  *UA2*CT*< 1.  -3.  *ST2)+1.  729329*UA*Y(3>*(CT2-ST2> 

1  +0.  4908'?2*Y33*CT  ♦  R0CA*<  1.  043144*UA2*CT* ( 1.  -3.  *ST2> 

2  +1.  U3593*Y<3)*UA*<CT2-ST2>  +  0.  363346* Y33*CT ) ) 

IF  (ST.  LT.  0.  )  GO  TO  40 

SIC— 1. 

00  TO  45 
40  SIC-1. 

45  CONTINUE 

A<4,  5>  — 1.  043144*R0CA*Y<2>*0  +  SIG*0.  3*UAST*UAST*CT 
C 

C  SII1UL  USED  FOR  MATRIX  INVERSION 

C 


DETER— SIMUL ( 4,  A.  C.  EPS,  1.  5) 

RETURN 

ENU 


